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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]多层筛选，如何实现逐层取消？

共有2480人关注过本帖树形打印复制链接主题：[求助]多层筛选，如何实现逐层取消？

bigeng

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

加好友

发短信

等级：四尾狐帖子：846 积分：5797 威望：0 精华：0 注册：2014/5/20 17:56:00

[求助]多层筛选，如何实现逐层取消？ 发帖心情

Post By：2015/8/21 11:01:00 [只看该作者]

大红袍老师，如果进行了多层筛选，如何实现逐层取消呢，而不是点一下全部取消掉？

bigeng

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

加好友

发短信

等级：四尾狐帖子：846 积分：5797 威望：0 精华：0 注册：2014/5/20 17:56:00

Post By：2015/8/21 11:15:00 [只看该作者]

大红袍老师，我提的这个太简单了吗？有没有相关的例子？

bigeng

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

加好友

发短信

等级：四尾狐帖子：846 积分：5797 威望：0 精华：0 注册：2014/5/20 17:56:00

Post By：2015/8/21 11:26:00 [只看该作者]

可能我没有说明白，比如说针对当前表：第一步按日期筛选，第二步，再按客户筛选，第三步，再按商品筛选；单击取消筛选，退回到第二步筛选状态，再单击取消筛选，退回到第一步筛选状态。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/21 11:35:00 [只看该作者]

用一个集合记录搜有筛选条件。

AfterOpenProject事件

vars("条件") = new List(Of String)

vars("条件").Add(Tables("表A").Filter)

BeforeFilter事件

If vars("条件").Contains(e.filter) = False Then
vars("条件").Add(e.Filter)
End If

想撤销，就写代码

If vars("条件").Count > 1 Then
    Tables("表A").Filter = vars("条件")(vars("条件").Count-2)
    vars("条件").RemoveAt(vars("条件").Count-1)
Else
    'vars("条件").Clear
    'vars("条件").add(Tables("表A").Filter)
End If

bigeng

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

加好友

发短信

等级：四尾狐帖子：846 积分：5797 威望：0 精华：0 注册：2014/5/20 17:56:00

Post By：2015/8/21 11:48:00 [只看该作者]

谢谢大红袍老师，测试了，OK！

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

主题：[求助]多层筛选，如何实现逐层取消？