以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  隐藏复选框未选定的行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79752)

--  作者:ccbbdlzj
--  发布时间:2016/1/8 12:51:00
--  隐藏复选框未选定的行
请问老师,如何实现将复选框未选定的行隐藏?代码咋写?
--  作者:大红袍
--  发布时间:2016/1/8 14:34:00
--  
Dim idxs As String = "-1,"
For Each r As Row In Tables("表C").GetCheckedRows
    idxs &= r("_Identify") & ","
Next
Tables("表C").Filter = "_Identify in (" & idxs.trim(",") & ")"