主题：如何关闭筛选树

 Case  "健康学校"
        Select Case e.Link.Name
           
            Case "健康学校文件"
                MainTable = Tables("常用文件")
                Tables("常用文件").Cols("文件类别").Visible = False              ’常用文件表在别的栏目打开时显示了筛选树，但在这个栏目中不需要显示筛选树，如何能关闭呢。
                
                Tables("常用文件").Filter ="[文件类别] Like '%健康%'"
                'Tables("常用文件").Filter = "[文件类别] = '健康学校'"
               
            Case "健康政策与管理"
                MainTable = Tables("健康学校")
                Tables("健康学校").DataTable.LoadFilter = "[分类] = '健康政策与管理'"
                Tables("健康学校").DataTable.Load
               
            Case "健康环境"
                MainTable = Tables("健康学校")
                Tables("健康学校").DataTable.LoadFilter = "[分类] = '健康环境'"             不需要显示筛选树，但如果先打开了“任务分解落实”分支，则筛选树一直显示。
                Tables("健康学校").DataTable.Load
            Case "健康文化"
                MainTable = Tables("健康学校")
                Tables("健康学校").DataTable.LoadFilter = "[分类] = '健康文化'"
                Tables("健康学校").DataTable.Load
            Case "健康服务"
                MainTable = Tables("健康学校")
                Tables("健康学校").DataTable.LoadFilter = "[分类] = '健康服务'"
                Tables("健康学校").DataTable.Load
            Case "任务分解落实"
                MainTable = Tables("健康学校")
                Tables("健康学校").DataTable.LoadFilter = ""
                Tables("健康学校").DataTable.Load
                Tables("健康学校").OpenFilterTree("责任领导|责任部门")                 先打开这个栏目，再打开上面的分支，筛选树仍然显示。先打开上面的选项，则正常。
                
                
        End Select

Tables("常用文件").CloseFilterTree