以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多个以上的模糊筛选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107947)
--  作者：LTHERO
--  发布时间：2017/10/13 9:57:00
--  多个以上的模糊筛选

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("标准清单_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbl.Filter = "序号 Like " & txt 
End If

Dim txt1 As String = e.Form.Controls("TextBox2").Text
Dim tbl1 As Table = Tables("标准清单_Table1")
If txt1 = "" Then
    tbl1.Filter = ""
Else
    txt1 = "\'%" & txt & "%\'"
    tbl1.Filter = tbl.Filter & "标号 Like " & txt 
End If

筛选不出来 
错误信息为：语法错误:“标号”运算符后缺少操作数。（两个TextBox中都输入数据）
                 语法错误:“Like”运算符后缺少操作数。（只输入标号的TextBox）
如果只输入序号的Textbox，则表无反应。

跪求大神解决，谢谢！
--  作者：有点甜
--  发布时间：2017/10/13 10:11:00
--  

参考这种写法

 

http://www.foxtable.com/webhelp/scr/1058.htm

 
--  作者：有点甜
--  发布时间：2017/10/13 10:15:00
--  

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("标准清单_Table1")
Dim filter As String = "1=1"
If txt > "" Then
    txt = "\'%" & txt & "%\'"
    filter = filter & " and 序号 Like " & txt
End If

txt = e.Form.Controls("TextBox2").Text
If txt > "" Then
    txt = "\'%" & txt & "%\'"
    filter = filter & " and 标号 Like " & txt
End If
tbl.filter = filter
--  作者：LTHERO
--  发布时间：2017/10/13 11:05:00
--  
日期如何筛选？
--  作者：有点甜
--  发布时间：2017/10/13 11:32:00
--  
以下是引用LTHERO在2017/10/13 11:05:00的发言：
日期如何筛选？

 

参考 http://www.foxtable.com/webhelp/scr/1058.htm