主题：全选

CheckedChanged事件

For Each c As Col In Tables("表A").cols
    If c.IsBoolean Then
        Tables("表A").Current(c.name) = e.sender.Checked
    End If
Next

-----------------------------

Dim cs() As String = {"第一列", "第七列"}
For Each c As String In cs
    Tables("表A").Current(c) = e.sender.Checked
Next