改成这样
Dim dt As DataTable = DataTables("测试") Dim t As Table = Tables("测试1") Dim s As String = dt.GetComboListString("编号").Replace("|", "','")t.filter = "编号 not In ('" & s & "')"