能不能再筛选树的基础上用文本框二次筛选？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 能不能再筛选树的基础上用文本框二次筛选？

共有3478人关注过本帖树形打印复制链接主题：能不能再筛选树的基础上用文本框二次筛选？

dokings

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：72 积分：709 威望：0 精华：0 注册：2017/6/12 16:08:00

能不能再筛选树的基础上用文本框二次筛选？ 发帖心情

Post By：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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110727 积分：563555 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

主题：能不能再筛选树的基础上用文本框二次筛选？