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

看不懂你的意思。

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

点击浏览该文件:管理项目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

全部删除：

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