以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]在第一个筛选结果内再次筛选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114507)
--  作者：dokings
--  发布时间：2018/2/7 19:45:00
--  [求助]在第一个筛选结果内再次筛选
我有两个文本框对表格进行筛选，，，如何让第2个筛选框在第一个筛选结果内再次筛选。。。

现在是各选各的，，，
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.rar

[此贴子已经被作者于2018/2/7 20:00:24编辑过]
--  作者：有点甜
--  发布时间：2018/2/7 19:55:00
--  

参考这里的设计

 

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

 
--  作者：有点甜
--  发布时间：2018/2/7 20:01:00
--  

Dim txt As String = e.Form.Controls("TextBox4").Text
Dim tbl As Table = Tables("details")
Dim filter As String = "1=1"
If txt >= "" Then
    txt = "\'%" & txt & "%\'"
    Filter &= " and (Standard Like " & txt & " Or Products Like " & txt & ")"
End If
txt = e.Form.Controls("TextBox5").Text

If txt >= "" Then
    txt = "\'%" & txt & "%\'"
    Filter &= " and Size Like " & txt 
End If
tbl.filter = filter
--  作者：dokings
--  发布时间：2018/2/7 20:02:00
--  
我看过这个例子，他是放在按钮的CLICK事件，我是想放到TEXTCHANGED事件里，，，通用吗？
--  作者：dokings
--  发布时间：2018/2/7 20:07:00
--  
试过这样是可行的。 谢谢版主。

开始也试过这样写，但是少了一句 txt = e.Form.Controls("TextBox5").Text， 导致不成功
--  作者：dokings
--  发布时间：2018/2/7 20:35:00
--  
Like 运算符中出错: 字符串模式“%1*1%”无效。

我发现一个问题，，，如果搜索1*1这样的有星号的字符会报错，，，， 有办法解决吗？
--  作者：有点甜
--  发布时间：2018/2/7 20:41:00
--  

Dim txt As String = e.Form.Controls("TextBox4").Text
Dim tbl As Table = Tables("details")
Dim filter As String = "1=1"
If txt >= "" Then
    txt = "\'%" & txt.replace("*", "[*]") & "%\'"
    Filter &= " and (Standard Like " & txt & " Or Products Like " & txt & ")"
End If
txt = e.Form.Controls("TextBox5").Text

If txt >= "" Then
    txt = "\'%" & txt.replace("*", "[*]") & "%\'"
    Filter &= " and Size Like " & txt 
End If
tbl.filter = filter