以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]退勾恢复  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107566)
--  作者：江南小镇
--  发布时间：2017/9/30 14:38:00
--  [求助]退勾恢复
老师好，下面代码是勾选显示，现在我想增加一个按钮恢复成没有勾选前的状态。
Dim idxs As String = "-1,"
For Each r As Row In Tables("进销存_Table6").GetCheckedRows
    idxs &= r("_Identify") & ","
Next
Tables("进销存_Table6").Filter = "_Identify in (" & idxs.trim(",") & ")"
--  作者：有点蓝
--  发布时间：2017/9/30 15:17:00
--  
vars("filter") = Tables("进销存_Table6").Filter

Dim idxs As String = "-1,"
For Each r As Row In Tables("进销存_Table6").GetCheckedRows
    idxs &= r("_Identify") & ","
Next
Tables("进销存_Table6").Filter = "_Identify in (" & idxs.trim(",") & ")"

还原
Tables("进销存_Table6").Filter = vars("filter") 
--  作者：江南小镇
--  发布时间：2017/9/30 15:33:00
--  
谢谢老师