如何用代码创建“子数据表”使主表每行左面多一个加号

作者：cg1 摘自：access911.net 录入：cg1 时间：2007-1-3 浏览人次：330

专题地址：http://access911.net/index.asp?u1=a&u2=72FABE1E15DCEBF3 如果需要更详细的评论或说明，请点击该地址。

简述：

问题：

如何用代码创建“子数据表”使主表每行左面多一个加号？
打开某个表，菜单 -> 插入 -> 子数据表，可以插入一个子数据表，实现数据表视图下每行左面有一个加号，单击加号可以展开与当前记录相关的子数据表，该功能如何用 VBA 代码来实现？

回答：

其实本问题在本站(http://access911.net) 上早就有很多文章论述，你只要将多篇文章中的代码组合一下就能实现。以下先给出所有的代码，然后给出参考示例，最后给出所有本站的参考文章。代码比较长，请耐心看完。

新建一个模块，将以下代码复制进去

'===========================================================
' 过程及函数名：  RunTest1
' 版本号      ：  --
' 说明        ：  演示，调用菜单半自动创建某个表的子数据表
'
'                 详细内容请参考以下文章：
'                     runcommand方法参数列表
'                     http://access911.net/index.asp?u1=a&u2=78FAB01E13DC
' 引用 .....................
...........