我测试两个老师的方案，均有问题。我想实现的结果：

          1. 当将table1的某行的复选框置为true时，可以在able2中增加相应行；

   当在table1的某行的复选框是true的情况下，将复选框由true变为false，删除table2中的相应行；

          2. 当逐一点击table2的某行的“×”时，可以逐行删除在table2的行，同时将table1中的相应

行的复选框置为false；

          3. 当点击“全部增加”按钮，增加全部用户（也要考虑特殊情况，当单选增加一行后，在点击“全部增加”按钮，增加所有；或切换部门，增加别的部门的用户）。

          4. 当点击“全部删除”按钮，删除全部用户（也要考虑特殊情况，当单选删除一行后，在点击“全部删除”按钮，删除所有）。

       BIN老师的代码运行提示错误：1. 单个删除有时需要点击两次，或反复测试无法删除。2. 在反复执行过程中有时发现强制关闭窗口，出现错误。

      我的测试动作：增加全部用户、删除个别用户、切换部门再增加新的用户、切换部门再删除的用户、增加1个再全部增加、删除全部用户、删除个别用户后新增用户并删除全部用户（上述动作可以打乱顺序，反复操作，以进行测试）。

看不懂你的意思。

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

点击浏览该文件:管理项目1.rar

按钮代码

With  Tables("人员添加窗口_Table1")
    For Each r As Row In .Rows
        Dim idx As Integer = Tables("任务表.用户选择表").FindRow("用户账号 = \'" & r("用户账号") & "\'")
        Dim s As Row
        If idx = -1 Then
            s = Tables("任务表.用户选择表").AddNew()
        Else
            s = Tables("任务表.用户选择表").Rows(idx)
        End If
        s("用户账号") = r("用户账号")
        s("用户姓名") = r("用户姓名")
        s("部门名称") = r("部门名称")
        s("职位") = r("职位")
    Next
End With