Office中国论坛/Access中国论坛

标题: 如何实现两个窗体的收缩与展开？？ [打印本页]

作者: goto2008 时间: 2007-12-28 11:24
标题: 如何实现两个窗体的收缩与展开？？
请各位大哥看图片。
想实现像树似的展开收缩

[ 本帖最后由 goto2008 于 2007-12-28 13:37 编辑 ]

作者: tmtony 时间: 2007-12-28 11:49
在docmd.runcommand里找一下

作者: goto2008 时间: 2007-12-28 11:54
这个问题以前好像有见过，但搜索不到例子了

作者: hi-wzj 时间: 2007-12-28 12:10
Private Sub Command71_Click()
DoCmd.GoToControl "计划总表子窗体2"
DoCmd.RunCommand acCmdSubdatasheetCollapseAll
End Sub
Private Sub Command72_Click()
DoCmd.GoToControl "计划总表子窗体2"
DoCmd.RunCommand acCmdSubdatasheetExpandAll
End Sub

作者: andymark 时间: 2007-12-28 12:11

Private Sub Command71_Click()
With Me.计划总表子窗体2.Form
.SubdatasheetExpanded = False
End With
End Sub
Private Sub Command72_Click()
With Me.计划总表子窗体2.Form
.SubdatasheetExpanded = True
End With
End Sub

复制代码

作者: goto2008 时间: 2007-12-28 13:38

两种方法都可以。。。。

谢谢andymark和hi-wzj两位大哥的指点。。。。。

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