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

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

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