Dim txt As String = e.Form.Controls("TextBox1").Text Dim tbl As Table = Tables("客户主窗口_Table1") If txt = "" Then tbl.Filter = "" Else txt = "'%" & txt & "%'" tbl.Filter = "客户编号 Like " & txt & " Or 客户名称 Like " & txt & " Or 联系人 Like " & txt & " Or 地址 Like " & txt End If