第1个问题：有两个窗口，第一步；先打开“新建任务窗口”，双击控件“责任人”添加用户，添加责任人后将已选用户保存在“用户选择表”中。

    第二步，返回“新建任务窗口”，双击控件“参与人”添加用户，添加参与人后将已选用户保存在“用户选择表”。

    第三步，返回“新建任务窗口”，想修改第一步已添加的责任人，双击控件“责任人”进行修改，但人员添加窗口2中的FILL并没有将已选的责任人添加进来，代码如下,不知错在哪里？

     第2个问题：fill填充数据时，若按条件过滤，没有符合条件的数据，是不是只加载表结构？用不用加上判断，有则

加载，没有就加载空表，就像下面的代码。

人员添加窗口2_AfterLoad

Dim m As Integer  = Vars("fn")  \'用户类别ID
Dim n As String = Vars("task_no") \'任务编号
Dim dr As DataRow
dr = DataTables("用户选择表").Find("任务编号 = \'" & n & "\' AND 用户类别ID =  " & m & " " )

If dr IsNot Nothing Then \'如果找到的话
    MessageBox.Show("找到了")
    Tables("人员添加窗口2_Table2").Fill("Select [_identify], 用户姓名,用户账号,部门名称,职位, 操作  From {用户选择表} Where  {用户选择表}.[任务编号] = \'" & n & "\' AND [用户类别ID] =  " & m & " " , False)   
    Tables("人员添加窗口2_Table2").SetColVisibleWidth("用户姓名|70|用户账号|70|部门名称|70|职位|70|操作|50")
Else
    Tables("人员添加窗口2_Table2").Fill("Select [_identify], 用户姓名,用户账号,部门名称,职位, 操作  From {用户选择表}  Where [_identify] Is null ",False)
    Tables("人员添加窗口2_Table2").SetColVisibleWidth("用户姓名|70|用户账号|70|部门名称|70|职位|70|操作|50")
   

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

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

甜老师， 我想请你问答一下第二个问题：我很糊涂，fill填充数据时，用不用加上判断，若有符合条件的数据则加载，没有就加载空表。

需要

你用3楼的方法，你重新打开窗口的时候，默认不是会新增一行数据的么？我测试，是空的值。