Office中国论坛/Access中国论坛

标题: 如何实现收缩 [打印本页]

作者: goto2008 时间: 2009-12-4 23:46
标题: 如何实现收缩
本帖最后由 goto2008 于 2009-12-5 00:02 编辑

[attach]40635[/attach][attach]40636[/attach]

作者: todaynew 时间: 2009-12-5 09:06
事件选择上好像不大好搞,用双击可以关闭所有展开的子窗体,然后再单击打开.
Private Sub Form_DblClick(Cancel As Integer)
Me.Form.SubdatasheetExpanded = False
End Sub

作者: goto2008 时间: 2009-12-6 12:42
看了家猫的例子，用以下代码大致可以实现，
但想再问个问题，如果子子窗体没有数据，点击了，干脆也不要展开字段标题，不知能不能实现。
DoCmd.RunCommand acCmdSelectRecord
Me.SubdatasheetExpanded = False
SendKeys ("^+({down})")

作者: goto2008 时间: 2009-12-6 22:06
关注哦。。。

作者: goto2008 时间: 2009-12-9 11:48
DoCmd.RunCommand acCmdSelectRecord
Me.SubdatasheetExpanded = False
SendKeys ("^+({down})")

用了，感觉打开窗体速度很慢。。有点头痛。。。。麻烦喽。。。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)