- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 能不能再筛选树的基础上用文本框二次筛选？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132193)
-- 发布时间：2019/3/16 10:19:00
-- 能不能再筛选树的基础上用文本框二次筛选？
如题！ 有一个表格需要用筛选树筛选，但是数据多了不方便阅读，想再加个文本框做二次筛选，，，
做了个附件，用筛选树筛选出第2列，，，但是久了以后数据量会很大，还要再做2次筛选，准备用文本框再次筛选，用了下面的代码，但是两者不能叠加，，，
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("表A")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.Filter = "SIZE Like " & txt & "
End If
这代码重新筛选了，筛选树又没用上，，，
有没有方法可以在筛选树筛选的结果里筛选？ （ 不在筛选树里设置2级筛选）
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1ds.rar |
-- 发布时间：2019/3/16 10:31:00
--
Dim tbl As Table = Tables("表A")
If tbl.Filter.Contains("SIZE") = False
vars("filter") = tbl.Filter
End If
Dim txt As String = e.Form.Controls("TextBox1").Text
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'%" & txt & "%\'"
If vars("filter") > "" Then
tbl.Filter = vars("filter") & " and SIZE Like " & txt
Else
tbl.Filter = "SIZE Like " & txt
End If
End If