主题：[求助]跨表下拉录入

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("员工资料").GetComboListString("姓名", "分配任务组别='部门1' and 姓名 in ('" & str2 & "')")

    Dim count = DataTables("表A").Compute("count(流程1_负责人)", "(流程1_完成情况 = '未完成' or 流程1_完成情况 Is null) and 流程1_负责人 like '%" & xm & "%'")

Dim count = DataTables("表A").Compute("count(流程1_负责人)", "(流程1_完成情况 = '未完成' or 流程1_完成情况 Is null) and 流程1_负责人 like '%" & xm & "%' and (第七列 is null or 第七列 <> '2')")

比如

 

Dim str3 As String = DataTables("统计").GetComboListString("流程1_负责人", "", "[流程1_未完成数量] desc")
str3 = str3.replace("|", " ")
msgbox(str3)