如何实现两个窗体的收缩与展开？？

goto2008

请各位大哥看图片。
想实现像树似的展开收缩

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

tmtony

在docmd.runcommand里找一下

goto2008

这个问题以前好像有见过，但搜索不到例子了

hi-wzj

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

1. Private Sub Command71_Click()
   
2. With Me.计划总表子窗体2.Form
   
3. 
   
4. .SubdatasheetExpanded = False
   
5. 
   
6. End With
   
7. End Sub
   
8. 
   
9. Private Sub Command72_Click()
   
10. 
    
11. With Me.计划总表子窗体2.Form
    
12. 
    
13. .SubdatasheetExpanded = True
    
14. 
    
15. End With
    
16. End Sub

复制代码

goto2008

     两种方法都可以。。。。

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