'CHECK CHECKBOX IS CHECKED OR UNCHECKED
Private Sub CB_CheckedChanged(sender As Object, e As EventArgs) Handles CB.CheckedChanged
With DgvDoc
If CB.CheckState = CheckState.Checked Then
For iRow = 0 To .Rows.Count - 1
.Rows(iRow).Cells("CHECKED").Value = True
Next
Else
For iRow = 0 To .Rows.Count - 1
.Rows(iRow).Cells("CHECKED").Value = False
Next
End If
End With
End Sub
Private Sub CB_CheckedChanged(sender As Object, e As EventArgs) Handles CB.CheckedChanged
With DgvDoc
If CB.CheckState = CheckState.Checked Then
For iRow = 0 To .Rows.Count - 1
.Rows(iRow).Cells("CHECKED").Value = True
Next
Else
For iRow = 0 To .Rows.Count - 1
.Rows(iRow).Cells("CHECKED").Value = False
Next
End If
End With
End Sub
Comments
Post a Comment