AfterLoad事件
Tables("表A").filter = “第一列 = false Or 第一列 is null”
控件勾选事件
If e.Sender.Checked = False Then
Else
Tables("表A").filter = “第一列 = true”
End If