以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]一个表经过多次筛选,如何一步步返回,不能直接返回到最初的情况。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133080)

--  作者:wendude
--  发布时间:2019/4/6 10:28:00
--  [求助]一个表经过多次筛选,如何一步步返回,不能直接返回到最初的情况。
1.使用代码:Syscmd.Edit.Undo()或者Syscmd.Filter.UnFilter(),均不可以。

2.使用代码:1、BeforeFilter事件代码:

If Tables("订单").Position >= 0 Then
    Vars("ddr") = Tables("订单").current.
DataRow

End
 If

2、AfterFilter事件代码:

If  Vars("ddr"IsNot Nothing Then
     
Tables("订单").Position = Tables("订单").FindRow(Vars("ddr"))
End
 If

上述代码均不可以,想一步一步的返回。谢谢


--  作者:有点蓝
--  发布时间:2019/4/6 11:08:00
--  
你要使用一个集合,记录每一步筛选的条件

比如有全局变量
public lst as new List(of string)

第一次筛选:
lst.add(table.filter)
table.filter = "条件1"

第二次筛选:
lst.add(table.filter)
table.filter = "条件2"

回退
dim filter as string = lst(lst.count - 1)
lst.remove(filter)
table.filter = filter