主题：[求助]不同表内容汇总到同一个表

怎么将后面几个表里我需要的内容都汇总到第一个汇总表里  而且可以同步修改更新

此主题相关图片如下：111111111111.png


此主题相关图片如下：222222.png


此主题相关图片如下：33333333333333.png

不同表的同一列数据 列名不一样 好像不行   下面的代码执行后没反应

 

Dim f As New  Filler
 f.SourceTable = DataTables("投诉与建议汇总表") '指定数据来源
f.SourceCols = "姓名,联系电话"  '指定数据来源列
f.DataTable = DataTables("T29") '指定数据接收表
f.DataCols = "F271,F252"  '指定数据接收列
f.Fill() '填充数据

抱歉我搞错了  我再看下  好像可以

还是有问题   我把代码填在项目事件的afteropenproject里  代码如下：

Dim f As New  Filler
 f.SourceTable = DataTables("T29") '指定数据来源表
f.SourceCols = "T29Id,F251,F271,F252,F253,F254,F255,F256"  '指定数据来源列
f.DataTable = DataTables("投诉与建议汇总表") '指定数据接收表
f.DataCols = "编号,时间,姓名,联系电话,详细住址,类别,内容及要求,图片"  '指定数据接收列
f.Fill() '填充数据

 

 

 

 

可是出现了几个问题

 

此主题相关图片如下：水电费0.png

我把代码填入了项目事件afteropenproject里了  代码如下：

Dim f As New  Filler
 f.SourceTable = DataTables("T29") '指定数据来源表
f.SourceCols = "T29Id,F251,F271,F252,F253,F254,F255,F256"  '指定数据来源列
f.DataTable = DataTables("投诉与建议汇总表") '指定数据接收表
f.DataCols = "编号,时间,姓名,联系电话,详细住址,类别,内容及要求,图片"  '指定数据接收列
f.Fill() '填充数据

 

但遇到几个问题：

1.两次关闭重开项目后  汇总表的数据重复添加（如下图）

2.汇总表和分表不能同步修改更新

 

 

此主题相关图片如下：水电费0.png