Dim txt As String = e.Form.Controls("TextBox1").Text Dim tbl As Table = Tables("窗口3_Table1") If txt = "" Then tbl.Filter = "" Else txt = "'*" & txt & "*'" tbl.Filter = "(未发货 = False Or 未发货 Is Null) And (订单号 Like " & txt & " Or 产品号 Like " & txt & " Or 产品名称 Like " & txt & " Or 规格尺寸 Like " & txt & ")" End If