源码示例分享！默认展开子表，展开收缩子表的设置。
一、问题描述：
想请教一下老师，如何一键打开全部的子表？逐个点击，有点麻烦。在网站上好像找不到类似的文章，如下图：
二、解决方法：
直接调用方法用如下代码：
DoCmd.RunCommand
acCmdSubdatasheetExpandAll '默认展开
DoCmd.RunCommand
acCmdSubdatasheetCollapseAll '默认收缩
通过主窗体嵌入子窗体调用如下代码：
Form_窗体名称.SubdatasheetExpanded = True '默认展开
Form_窗体名称.SubdatasheetExpanded = False '默认收缩
三、演 示：
四、示例下载：