如何实现收缩

goto2008 · 发表于 2009-12-4 23:46:16

本帖最后由 goto2008 于 2009-12-5 00:02 编辑

todaynew · 发表于 2009-12-5 09:06:54

事件选择上好像不大好搞,用双击可以关闭所有展开的子窗体,然后再单击打开.
Private Sub Form_DblClick(Cancel As Integer)
Me.Form.SubdatasheetExpanded = False
End Sub

goto2008 · 发表于 2009-12-6 12:42:31

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

goto2008 · 发表于 2009-12-6 22:06:09

关注哦。。。

goto2008 · 发表于 2009-12-9 11:48:18

DoCmd.RunCommand acCmdSelectRecord
Me.SubdatasheetExpanded = False
SendKeys ("^+({down})")

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

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 如何实现收缩

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)