主题：[求助]关于在窗口添加数据问题，请老师指教！

假定列表框的项目来自表B的编号列，但是排除表A中已经输入的编号列。

可以这样设置下拉列表框的Enter事件：

Dim Vals1 As List(of String) = DataTables("表A").GetUniqueValues("","编号")
Dim Vals2 As List(of String) = DataTables("表B").GetUniqueValues("","编号")
Dim cmb As WinForm.ComboBox = e.Sender
cmb.Items.Clear
For Each val As String In vals2
    If vals1.Contains(val) = False Then
        cmb.Items.Add(val)
    End If
Next
   
 

如果编号是字符型:

Dim ids As String
For Each dr As DataRow In DataTables("结算表").DataRows
   ids = ids & ",‘" & dr(“编号") & "'"
Next
ids = ids.trim(",")
DataTables(”窗口1_Table1“).LoadFilter = "编号 In (" & ids & ")"

如果编号是整数：

Dim ids As String
For Each dr As DataRow In DataTables("结算表").DataRows
ids = ids & "," & dr(“编号")
Next
ids = ids.trim(",")
DataTables(”窗口1_Table1“).LoadFilter = "编号 In (" & ids & ")"