主题：按需要打开筛选树

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

内容1

内容2

........

内容6

 

 

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

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

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

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

 

没看懂，截图，列出代码举例说明一下

其它显示是这样的

 

此主题相关图片如下：捕获.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
       

去掉PrepareEdit事件的这个代码Tables("xxxx").CloseFilterTree()