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