以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何关闭筛选树  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176212)

--  作者:nxqtxwz
--  发布时间:2022/4/4 20:12:00
--  如何关闭筛选树
 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

--  作者:有点蓝
--  发布时间:2022/4/5 21:35:00
--  
Tables("常用文件").CloseFilterTree
[此贴子已经被作者于2022/4/5 21:35:35编辑过]