- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教复选框问题（新问题） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=18442)
-- 发布时间：2012/4/13 10:26:00
-- 请教复选框问题（新问题）
此主题相关图片如下：qq截图20120331125823.png
如图希望窗口副本表只显示复选框选中的行
怎么实现
[此贴子已经被作者于2012-4-13 11:14:38编辑过]
-- 发布时间：2012/4/13 10:39:00
--
绕一个大圈圈：
Dim ids As String
For Each r As Row In Tables("表A").GetCheckedRows
ids = ids & "," & r("_Identify")
Next
ids= ids.trim(",")
If ids > "" Then
Tables("表A").Filter = "[_Identify] in (" & ids & ")"
For Each r As Row In Tables("表A").Rows
r.Checked = True
Next
End If
-- 发布时间：2012/4/13 11:06:00
--
真是大圈圈啊。谢谢狐爸
-- 发布时间：2012/4/13 11:14:00
--
狐爸
我用AfterCheckRow事件，增加个选中逻辑列
e.Table.StopRedraw
e.Row("选中") = e.Row.Checked
e.Table.ResumeRedraw
可是还是有点闪，怎么解决呢
[此贴子已经被作者于2012-4-13 11:20:55编辑过]
-- 发布时间：2012/4/13 11:50:00
--
呵呵， 你有了逻辑列，还要自带的复选框干什么？ 不多余吗？
[此贴子已经被作者于2012-4-13 11:50:28编辑过]
-- 发布时间：2012/4/13 12:05:00
--
是哦。
