写两段
Dim f As New Filler
f.SourceTable = DataTables("软件数据") '指定数据来源
f.SourceCols = "产品图号" '指定数据来源列
f.DataTable = DataTables("差异统计") '指定数据接收表
f.DataCols = "产品图号" '指定数据接收列
f.ExcludeExistValue = True
f.Fill() '填充数据
f = New Filler
f.SourceTable = DataTables("销售数据") '指定数据来源
f.SourceCols = "产品图号" '指定数据来源列
f.DataTable = DataTables("差异统计") '指定数据接收表
f.DataCols = "产品图号" '指定数据接收列
f.ExcludeExistValue = True
f.Fill() '填充数据