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

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

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


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


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

  可以编写代码填充

 

http://www.foxtable.com/webhelp/scr/0680.htm

 

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

 

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

1、Filler有一个参数ExcludeExistValue，可以排除现有值：
http://www.foxtable.com/webhelp/scr/0680.htm

 

2、这本来就不可能同步，每次都需要单击合并，你要同步的话，可以看看：

http://www.foxtable.com/webhelp/scr/2490.htm

 

3、最后建议直接一个表就行了，结构一样的数据，不应该分成多个表，你可以用一个投诉类型的列，区分不同的投诉，做一个动态加载，不同的人登录，加载不同类型的投诉。