Dim kh As WinForm.ComboBox = e.Form.Controls("ComboBox1") Dim ids = Tables("窗口1_Table1").DataTable.GetComboListString("_Identify", " not 客户编号 = " & kh.Text & " or 客户编号 is null") Tables("窗口1_Table1").Filter="_Identify not in (" & ids.replace("|", ",") & ")"