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
|