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


  共有21649人关注过本帖平板打印复制链接

主题:[求助]目录树如何取消筛选?

帅哥哟,离线,有人找我吗?
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

 回到顶部