主题：几个自动表合并到一个表

如何将三个分公司的报表全部在，“分公司问题汇总”这个表体现出来呢？

比如说 我在任意一个分公司报表上添加一行数据，在“分公司问题汇总”这个表上都能自动生成这行数据

求帮助~~

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目8_201505180820.zip

我在‘分公司问题汇总’表属性下-PrepareEdit-书写以下命令，造成了数据无限加载循环！！我希望在加载下面命令之前可以实现：

1、表‘分公司问题汇总’为空表

2、其它表的数据只加载一次

3、无论表‘分公司问题汇总’和其它表数据变化的时候，都能同步变化

Dim f As New  Filler
f.SourceTable = DataTables("一分公司") '指定数据来源
f.SourceCols = "单位,负责人,检查问题,问题类型,问题数量,是否整改,整改时间,备注"  '指定数据来源列
f.DataTable = DataTables("分公司问题汇总") '指定数据接收表
f.DataCols = "单位,负责人,检查问题,问题类型,问题数量,是否整改,整改时间,备注"  '指定数据接收列
f.Fill() '填充数据

Dim q As New  Filler
q.SourceTable = DataTables("二分公司") '指定数据来源
q.SourceCols = "单位,负责人,检查问题,问题类型,问题数量,是否整改,整改时间,备注"  '指定数据来源列
q.DataTable = DataTables("分公司问题汇总") '指定数据接收表
q.DataCols = "单位,负责人,检查问题,问题类型,问题数量,是否整改,整改时间,备注"  '指定数据接收列
q.Fill() '填充数据

Dim s As New  Filler

s.SourceTable = DataTables("三分公司") '指定数据来源
s.SourceCols = "单位,负责人,检查问题,问题类型,问题数量,是否整改,整改时间,备注"  '指定数据来源列
s.DataTable = DataTables("分公司问题汇总") '指定数据接收表
s.DataCols = "单位,负责人,检查问题,问题类型,问题数量,是否整改,整改时间,备注"  '指定数据接收列
s.Fill() '填充数据

求帮助

按键不方便啊，不小心按了两次的话，数据就会加载两次~~~

如果不用按键，每次运行表的时候，能够自动加载表的内容，我觉得更理想