主题：全选

论坛里的全选案例代码：

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表D等等多个表都实现这个功能，谢谢老师

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:单击列标题事件.table