Dim tbl As Table = Tables("表A")
If tbl.Filter.Contains("SIZE") = False
vars("filter") = tbl.Filter
End If
Dim txt As String = e.Form.Controls("TextBox1").Text
If txt = "" Then
tbl.Filter = ""
Else
txt = "'%" & txt & "%'"
If vars("filter") > "" Then
tbl.Filter = vars("filter") & " and SIZE Like " & txt
Else
tbl.Filter = "SIZE Like " & txt
End If
End If