以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]在第一个筛选结果内再次筛选  (http://foxtable.com/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