Dim tb1 As String= "表名"
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim zs As String
If txt = "" Then
zs = “1+1= 3”
else
txt = "'%" & txt & "%'"
zs = "列名1 Like " & txt & " Or 列名2 Like " & txt & " Or 列名3 Like " & txt & " Or 列名... Like " & txt ....
Tables(tb1).Filter=zs
加好友 
发短信
Post By：2015/3/1 0:07:00 [显示全部帖子]
