论坛里的全选案例代码:
Public headCol As Integer = -1
Public Sub MouseLeaveCellHandler(sender As object, e As C1.Win.C1FlexGrid.RowColEventArgs )
headcol = -1
End Sub
Public Sub MouseEnterCellHandler(sender As object, e As C1.Win.C1FlexGrid.RowColEventArgs )
If e.Row = 0 Then
headcol = e.Col
End If
End Sub
Public Sub ClickHandler(sender As object, e As System.EventArgs)
If headcol <> -1 Then
Dim cname = Tables(sender.Name).Cols(headcol-1).Name
Dim idx As Integer = headcol
If sender.name = "表A" AndAlso cname = "第一列" Then
sender(0, idx) = not sender(0, idx)
For Each r As Row In Tables(sender.name).Rows
r(cname) = sender(0, idx)
Next
End If
End If
End Sub
是在表A里进行全选,如果是对几个表进行全选呢,该怎样修改代码?
比如表B,表C,表D