[求助]目录树如何取消筛选？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]目录树如何取消筛选？

共有23721人关注过本帖树形打印复制链接主题：[求助]目录树如何取消筛选？

t_fs

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：2808 威望：0 精华：0 注册：2008/9/1 8:46:00

[求助]目录树如何取消筛选？ 发帖心情

Post By：2009/1/6 15:53:00 [只看该作者]

      窗口中加入目录树后，点击各节点均可实现筛选功能，可是在CASE 3 中想实现取消筛选却不能实现。不知是什么原因。点击节点3后也能执行，但不是显示所有记录，而是隐藏所有记录。

     大家帮助看看 Tables("项目管理").ApplyFilter = False ，这句有问题吗？
谢谢了！！

Dim Value()As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        Tables("项目管理").Filter ="[制作人] = '" & Value(0) & "'"
    Case 1
        Tables("项目管理").Filter ="[制作人] = '" & Value(0) & "' And [申请单位] = '" & Value(1) & "'"
    Case 2
        Tables("项目管理").Filter ="[制作人] = '" & Value(0) & "' And [申请单位] = '" & Value(1) &"' And [厂家名称] = '" & Value(2) & "'"
    Case 3
      Tables("项目管理").ApplyFilter = False
End Select

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/1/6 16:11:00 [只看该作者]

我测试有效，也许下面这一行根本就没有执行，检查你的分支语句。
你的语句看上去很奇怪的，也许应该：

Case Else
Tables("项目管理").ApplyFilter = False

t_fs

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：2808 威望：0 精华：0 注册：2008/9/1 8:46:00

Post By：2009/1/6 20:18:00 [只看该作者]

此主题相关图片如下：tt截图未命名.jpg

     我的目录树如上。从上图中看，好象“全部记录”属于根节点，用 Case 3 来判断可能是错误的。因为，case 3 属于第4层目录了。

     是不是应该在Case 0 中加以判断呢？修改代码为：

    Case 0
         if Forms("窗口4").Controls("TreeView1").Nodes(0).Text = "全部记录" then
              Tables("项目管理").ApplyFilter = False
        else
              Tables("项目管理").Filter ="[制作人] = '" & Value(0) & "'"
        end if

   可是，改了后还是不能取消筛选，大家看看这么改可以吗？谢谢了！

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/1/6 20:44:00 [只看该作者]

Case 0
         if e.Node.Text = "全部记录" then
              Tables("项目管理").ApplyFilter = False
        else
              Tables("项目管理").Filter ="[制作人] = '" & Value(0) & "'"
        end if

图片点击可在新窗口打开查看

t_fs

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：2808 威望：0 精华：0 注册：2008/9/1 8:46:00

Post By：2009/1/7 7:53:00 [只看该作者]

以下是引用狐狸爸爸在2009-1-6 20:44:00的发言：
Case 0
         if e.Node.Text = "全部记录" then
              Tables("项目管理").ApplyFilter = False
        else
              Tables("项目管理").Filter ="[制作人] = '" & Value(0) & "'"
        end if

图片点击可在新窗口打开查看

按上述代码，解决了筛选问题。谢谢大家！！

下一主题 >> << 上一主题

主题：[求助]目录树如何取消筛选？