主题：[求助]窗口中的用户选择

全部删除：

With  Tables("人员添加窗口_Table1")
    For Each r As Row In .GetCheckedRows
        r.Checked  = False
    Next
End With

全部添加：

With  Tables("人员添加窗口_Table1")
    For Each r As Row In .Rows
        r.Checked  = True
    Next
End With