主题：[求助]两表数据对比不重复填充

求助：

如下图，项目有两个表，表A和表B，我想实现将表B中的数据，按A2列排除重复值后，跟表A对比，如果表A的A1列不存在相同的数据，则将表B中表A不存在数据填充到表A中，

填充时将表B的，A2，B2，C2，D2分别对应表A的A1，B1.C1.D1列 

请较下该怎么写按钮代码，我按帮助学做了好久，还是实现不了

  

此主题相关图片如下：0000000.jpg

Dim f As New Filler
f.SourceTable = DataTables("表B")
f.SourceCols = "A2,B2,C2,D2"
f.DataTable = DataTables("表A")
f.DataCols = "A1,B1,C1,D1"
f.ExcludeExistValue = True
F.Distinct  = True
f.Fill()

谢谢版主，但还是没有实现填充时排除掉表A中存在的数据，可能是我没说清，我的表B是外部数据源加载进来的数据，表B和表A的表结构是不同的，我想在表B的数据有更新时，手动填充到表A中，在表A中进行处理，这样就不会破坏外部数据表B的表结构了。

http://www.foxtable.com/help/topics/1533.htm

按帮助例子做出来，只能排除数据来源表中重复的数据，好像不能排除数据接收表中已存在的数据

  同样可以排除，你用find代码查找是否有对应的行，没有再添加，楼上的帮助要灵活变通