以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]两表数据对比不重复填充  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61195)

--  作者:99473593
--  发布时间:2014/12/8 18:23:00
--  [求助]两表数据对比不重复填充

求助:

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

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

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

  


图片点击可在新窗口打开查看此主题相关图片如下:0000000.jpg
图片点击可在新窗口打开查看

--  作者:czy
--  发布时间:2014/12/8 18:48:00
--  
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()
--  作者:99473593
--  发布时间:2014/12/9 8:35:00
--  
谢谢版主,但还是没有实现填充时排除掉表A中存在的数据,可能是我没说清,我的表B是外部数据源加载进来的数据,表B和表A的表结构是不同的,我想在表B的数据有更新时,手动填充到表A中,在表A中进行处理,这样就不会破坏外部数据表B的表结构了。
--  作者:Bin
--  发布时间:2014/12/9 8:37:00
--  
http://www.foxtable.com/help/topics/1533.htm
--  作者:99473593
--  发布时间:2014/12/9 9:07:00
--  
按帮助例子做出来,只能排除数据来源表中重复的数据,好像不能排除数据接收表中已存在的数据
--  作者:有点甜
--  发布时间:2014/12/9 9:27:00
--  
  同样可以排除,你用find代码查找是否有对应的行,没有再添加,楼上的帮助要灵活变通