Dim txt As String = e.Form.textbox.TextDim tbl As Table = Tables("窗口1_Table1")If txt = "" Then tbl.Filter = ""Else txt = "\'*" & txt & "*\'" tbl.Filter = "产品 Like "& txtEnd If