第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")