enter事件
Dim lst1 As List(of String) = DataTables("表B").GetUniqueValues("","第一列")
Dim lst2 As new List(of String)
Dim val As String = DataTables("表A").GetComboListString("第一列","[_Identify] <> " & Tables("表A").current("_Identify"))
val = val.Replace("|",",")
lst2.AddRange(val.split(","))
For Each v As String In lst2
If lst1.Contains(v) Then
lst1.Remove(v)
End If
Next
e.sender.ComboList = String.Join("|",lst1.ToArray)