专家坐堂-按需要打开筛选树Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  按需要打开筛选树  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158390)

--  作者：nxqtxwz
--  发布时间：2020/11/18 14:45:00
--  按需要打开筛选树

请问老师，我的导航栏有六项内容

内容1

内容2

........

内容6

点到内容6时显示筛选树，其它的五项不显示筛选树怎么办。

现在是在事件中关闭了筛选

Tables("校园治理").CloseFilterTree()

但这样整个表都关闭了筛选树

[此贴子已经被作者于2020/11/18 14:45:04编辑过]

--  作者：有点蓝
--  发布时间：2020/11/18 14:46:00
--
没看懂，截图，列出代码举例说明一下

--  作者：nxqtxwz
--  发布时间：2020/11/18 15:13:00
--

其它显示是这样的

此主题相关图片如下：捕获.png

在表的PrepareEdit事件中设置了Tables("xxxx").CloseFilterTree()

有一项要显示成这样的

此主题相关图片如下：捕获1.png

目前做不到，怎么办？

如果取消Tables("xxxx").CloseFilterTree()所有的都会显示筛选树

我要做的是：只有一项显示筛选树，其它的不显示。


    Case "校园治理"
        Tables("校园治理").CloseFilterTree
        MainTable = Tables("校园治理")
        Select Case e.Link.Name
            Case "党组织领导体制"
                Tables("校园治理").DataTable.LoadFilter = "[主要任务] = \'党组织领导体制\'"
                Tables("校园治理").DataTable.Load
                Tables("校园治理").OpenFilterTree("主要任务")
            Case "坚持立德树人"
                Tables("校园治理").DataTable.LoadFilter = "[主要任务] = \'坚持立德树人\'"
                Tables("校园治理").DataTable.Load
                Tables("校园治理").OpenFilterTree("主要任务")
            Case "意识形态工作"
                Tables("校园治理").DataTable.LoadFilter = "[主要任务] = \'意识形态工作\'"
                Tables("校园治理").DataTable.Load
                Tables("校园治理").OpenFilterTree("主要任务")
            Case "防范抵御宗教"
                Tables("校园治理").DataTable.LoadFilter = "[主要任务] = \'防范抵御宗教\'"
                Tables("校园治理").DataTable.Load
                Tables("校园治理").OpenFilterTree("主要任务")
            Case "校园安全防范"
                Tables("校园治理").DataTable.LoadFilter = "[主要任务] = \'校园安全防范\'"
                Tables("校园治理").DataTable.Load
                Tables("校园治理").OpenFilterTree("主要任务")

            Case "师生服务管理"
                Tables("校园治理").DataTable.LoadFilter = "[主要任务] = \'师生服务管理\'"
                Tables("校园治理").DataTable.Load
                Tables("校园治理").OpenFilterTree("主要任务")
            Case "校园治理保障"
                Tables("校园治理").DataTable.LoadFilter = "[主要任务] = \'校园治理保障\'"
                Tables("校园治理").DataTable.Load
                Tables("校园治理").OpenFilterTree("主要任务")


             Case "任务分解落实"             ‘这个分支想显示筛选树，但在表的PrepareEdit事件中设置了Tables("xxxx").CloseFilterTree()怎么也不显示


                 MainTable = Tables("校园治理")
                 Tables("校园治理").DataTable.LoadFilter = ""
                 Tables("校园治理").DataTable.Load
                 Tables("校园治理").OpenFilterTree("责任领导|配合部门")

        End Select


[此贴子已经被作者于2020/11/18 15:21:53编辑过]

--  作者：有点蓝
--  发布时间：2020/11/18 15:24:00
--
去掉PrepareEdit事件的这个代码Tables("xxxx").CloseFilterTree()