Dim txt As String = e.Form.Controls("TextBox1").Text Dim tbl As Table = Tables("任务单") If txt = "" Then tbl.Filter = "" Else txt = "'*" & txt & "*'" tbl.Filter = "任务单编号 Like " & txt & " Or 工装模具编号 Like " & txt & " Or 产品名称 Like " & txt & " Or 产品图号 Like " & txt