| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]退勾恢复 (http://foxtable.net/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 -- 谢谢老师 |