Hi, I have the code below.
everything else seems to work fine,
except when it comes to the check box.
it would stop at the check box and
error as type mismatch. what is wrong
with my code? any input would be greatly
appreciated.
private sub flexgrid_click()
Dim i As Integer
Dim x As Integer
x = flexgrid.Row
flexgrid.SelectionMode = flexSelectionByRow
With flexgrid
For i = 1 To x
txtSDate.Text = flexgrid.TextMatrix(i, 1)
txtEDate.Text = flexgrid.TextMatrix(i, 2)
chkbox1.value = flexgrid.TextMatrix(i, 3)
Next
End with
End Sub
everything else seems to work fine,
except when it comes to the check box.
it would stop at the check box and
error as type mismatch. what is wrong
with my code? any input would be greatly
appreciated.
private sub flexgrid_click()
Dim i As Integer
Dim x As Integer
x = flexgrid.Row
flexgrid.SelectionMode = flexSelectionByRow
With flexgrid
For i = 1 To x
txtSDate.Text = flexgrid.TextMatrix(i, 1)
txtEDate.Text = flexgrid.TextMatrix(i, 2)
chkbox1.value = flexgrid.TextMatrix(i, 3)
Next
End with
End Sub
