以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]求助只显示勾选复选框行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=136411)

--  作者:湛江智
--  发布时间:2019/6/12 19:18:00
--  [求助]求助只显示勾选复选框行
如题
--  作者:有点蓝
--  发布时间:2019/6/13 8:49:00
--  
如:

Dim t As Table = Tables("表A")
For Each r As Row In t.GetCheckedRows
    str &= r("_Identify") & ","
Next

t.Filter = "[_Identify] in (" & str.trim(",") & ")"