Dim f As New Filler
f.SourceTable = DataTables("TAKATA账单") '指定数据来源
f.SourceCols = "客户简称,月份,运输方式" '指定数据来源列
f.DataTable = DataTables("开piao管理") '指定数据接收表
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("开piao管理") '指定数据接收表
g.DataCols = "客户简称,月份" '指定数据接收列
g.ExcludeExistValue = False
g.ExcludeNullValue = True
g.Distinct = True
g.append = False
g.Fill() '填充数据
此主题相关图片如下：1.png
请老师看看代码？为什么填充数据好重复，谢谢！
加好友 
发短信
Post By：2016/6/28 11:26:00 [只看该作者]
