以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  只显示复选框选中行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70785)
--  作者：46702888
--  发布时间：2015/6/29 10:08:00
--  只显示复选框选中行
请教，“员工信息表”数据表只显示复选框选中行的集合，其它行隐藏。代码，谢谢！
--  作者：Bin
--  发布时间：2015/6/29 10:11:00
--  
你这样做的意义是什么? 别的地方要调用它?

要实现这样只能够获得选中行后,获取 _Identify 然后一个个拼接作为条件筛选. 效率比较差

你可以把你原本的需求说出来,这样做的意义是什么, 也许可以帮你想出更好的方案
--  作者：46702888
--  发布时间：2015/6/29 10:48:00
--  
我想把选中的行导出EXCEL，然后只显示选中行排序、做报表。
--  作者：大红袍
--  发布时间：2015/6/29 11:27:00
--  
 你的复选框，是一个数据列，还是表前面的复选框？
--  作者：大红袍
--  发布时间：2015/6/29 11:29:00
--  

Dim idxs As String = "-1,"
For Each r As Row In Tables("表A").GetCheckedRows
    idxs &= r("_Identify") & ","
Next

Tables("表A").Filter = "_Identify in (" & idxs.Trim(",") & ")"
--  作者：46702888
--  发布时间：2015/6/29 14:47:00
--  
不好意思离开了。非常感谢大红袍老师！这正是我想要的效果。也谢谢Bin老师！