表A项目共由 流程1 接着到 流程2  再到 流程3  来完成

 想实现在窗口中录入 流程1_负责人 从表B的流程部门列中值对于  部门1 的负责人中下来选择。如果部门1的负责人已经有未完成的流程1项目，下拉就不显示他的名字，求助

具体描述：

小王，因为已完成，可以安排任务，所以下来显示

小李,小张，因为未完成任务，暂不安排任务，所以下拉不显示

小赵，因为从未安排任务，可以安排任务，所以下来显示

在窗口中，流程1_负责人，下拉，只显示 小王  和 小赵，求助

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

点击浏览该文件:任务分配.foxdb

Enter事件，写代码

Dim str = DataTables("表A").GetComboListString("流程1_负责人", "流程1_完成情况 = \'未完成\'")
str = str.replace(",", "|").replace("|", "\',\'")
e.sender.ComboList = DataTables("表B").GetComboListString("负责人", "流程部门=\'部门1\' and 负责人 not in (\'" & str & "\')")

Dim xms = DataTables("表B").GetValues("负责人", "流程部门=\'部门1\'")
Dim ary1 = xms.Toarray
Dim ary2(ary1.length-1) As String
For i As Integer = 0 To xms.count-1
    Dim xm = xms(i)
    Dim count = DataTables("表A").Compute("count(流程1_完成情况)", "流程1_完成情况 = \'未完成\' and 流程1_负责人 like \'%" & xm & "%\'")
    ary2(i) = format(count, "00")
Next
array.sort(ary2, ary1)
array.Reverse(ary1)
array.Reverse(ary2)
output.show(String.join("|", ary1))
output.show(String.join("|", ary2))

Dim xms = DataTables("表B").GetValues("负责人", "流程部门=\'部门1\'")
Dim ary1 = xms.Toarray
Dim ary2(ary1.length-1) As Integer
For i As Integer = 0 To xms.count-1
    Dim xm = xms(i)
    Dim count = DataTables("表A").Compute("count(流程1_完成情况)", "流程1_完成情况 = \'未完成\' and 流程1_负责人 like \'%" & xm & "%\'")
    ary2(i) = count
Next
array.sort(ary2, ary1)

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("流程1_负责人", Gettype(String), 132)
dtb.AddDef("流程1_未完成数量", Gettype(Integer))
dtb.Build()

For i As Integer = ary1.length-1 To 0 Step -1
    Dim dr1 As DataRow = DataTables("统计").AddNew()
    dr1("流程1_负责人") = ary1(i)
    dr1("流程1_未完成数量") = ary2(i)
Next
MainTable= Tables("统计")

大师，如果窗口文本框显示 可以安排任务的人员，下面代码怎么修改？ 谢谢

\'可以安排任务的人员
Dim str2 = DataTables("室内设计项目").GetComboListString("深化设计完成时间节点_负责人", "深化设计完成时间节点_全套施工图完成时间_完成否 = \'未完成\'")
str2 = str2.replace(",", " ").replace("|", "\' \'")
e.Form.Controls("Label3").Text = DataTables("员工资料").GetValues("姓名", "分配任务组别=\'部门1\' and 姓名 not in  (\'" & str2 & "\')")

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

点击浏览该文件:文字显示不重复值结果.foxdb