以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  跨表填充重复  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86881)

--  作者:jamhuton
--  发布时间:2016/6/28 11:26:00
--  跨表填充重复
Dim f As New Filler
f.SourceTable = DataTables("TAKATA账单") \'指定数据来源
f.SourceCols = "客户简称,月份,运输方式" \'指定数据来源列
f.DataTable = DataTables("开票管理") \'指定数据接收表
f.DataCols = "客户简称,月份,运输方式" \'指定数据接收列
f.ExcludeExistValue = False
f.ExcludeNullValue = True
f.Distinct = True
f.append = False
f.Fill() \'填充数据


Dim g As New Filler
g.SourceTable = DataTables("账单明细") \'指定数据来源
g.SourceCols = "客户简称,月份" \'指定数据来源列
g.DataTable = DataTables("开票管理") \'指定数据接收表
g.DataCols = "客户简称,月份" \'指定数据接收列
g.ExcludeExistValue = False
g.ExcludeNullValue = True
g.Distinct = True
g.append = False
g.Fill() \'填充数据
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

请老师看看代码?为什么填充数据好重复,谢谢!

--  作者:大红袍
--  发布时间:2016/6/28 11:28:00
--  

改成True

 

f.ExcludeExistValue = True


--  作者:jamhuton
--  发布时间:2016/6/28 12:41:00
--  
谢谢