Dim txt As String = e.Form.DropDownBox.Text Dim tbl As Table = Tables("窗口1_Table1") Dim filter As String If txt = "" Then Filter = "" Else txt = "'%" & txt & "%'" Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt End If tbl.DataTable.LoadFilter = filter tbl.DataTable.Load e.Form.DropDownBox.Select()