Dim txt As
String = e.Form.Controls("TextBox1").Text Dim tbl As Table = Tables("窗口1_Table1") If txt = "" Then tbl.Filter = "" Else项 txt = "'*" & txt & "*'" tbl.Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt &
" Or 地址 Like " & txt
& " Or 联系人 Like "
& txt End
If