主题：数据填充filler出错

 目测，应该是你的列名写错了，检测一下 SourceCols  和 DataCols 对应的列名是否正确。

 出错例子发上来，说明意图。

 

 我测试没有报错。

 如果去到Append有什么问题？不是应该去掉的么？

 那不是空白，收款表就没有这些列的记录啊

 

Dim f As New Filler   '先填充订单统计

Dim fss As New Filler   '再填充收款金额

f.SourceTable = DataTables("订单明细表") '指定数据来源
f.SourceCols = "客户名称,型号规格,数量,发货日期" '指定数据来源列
'f.Append = False
f.Distinct = False    '允许出现重复值
f.Filter = "客户名称 = '张三'"
f.DataTable = DataTables("对账单") '指定数据接收表
f.DataCols = "客户名称,型号规格,数量,发货日期" '指定数据接收列
f.Fill() '填充数据

Tables("对账单").Sort = "发货日期"

fss.SourceTable = DataTables("收款明细表") '指定数据来源
fss.SourceCols = "客户名称,收款日期,收款金额" '指定数据来源列
'fss.Append = False
fss.Distinct = False
fss.Filter = "客户名称 = '张三'"
fss.DataTable = DataTables("对账单") '指定数据接收表
fss.DataCols = "客户名称,收款日期,收款金额"  '指定数据接收列
fss.Fill()  '填充数据

Dim Book As New XLS.Book(ProjectPath & "Attachments\对账单.xls")
Dim fl As String = ProjectPath & "Reports\对账单.xls"
Book.Build()   '生成细节区
Book.Save(fl)  '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

'DataTables("对账单").DataRows.Clear