Dim Filter As String = "1=1"
Dim s1 = e.form.controls("textbox1").text
If s1 > "" Then
filter &= " and 名字 like '%" & s1 & "%'"
End If
If filter = "1=1" Then
Tables("表A").filter = "1=2"
Else
Tables("表A").filter = filter