主题：全选

论坛里的全选案例代码：

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

 你是说表B、表C等都要实现表A的功能？

 具体例子发上来。