主题：请教复选框问题（新问题）

此主题相关图片如下：qq截图20120331125823.png

 

如图希望窗口副本表只显示复选框选中的行

怎么实现

绕一个大圈圈：

 

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

真是大圈圈啊。谢谢狐爸

狐爸

我用AfterCheckRow事件，增加个选中逻辑列

 

e.Table.StopRedraw
e.Row("选中") = e.Row.Checked
e.Table.ResumeRedraw

 

可是还是有点闪，怎么解决呢

 

 

呵呵， 你有了逻辑列，还要自带的复选框干什么？ 不多余吗？

是哦。