主题：[求助]关于两个表两列差异统计问题

Dim f As New Filler

f.SourceTable = DataTables("A单位表格") '指定数据来源

f.SourceCols = "fa piao号码,产品名称" '指定数据来源列

f.DataTable = DataTables("差异统计") '指定数据接收表

f.DataCols = "fa piao号码,产品名称" '指定数据接收列

f.ExcludeExistValue = True

f.Fill() '填充数据

f = New Filler

f.SourceTable = DataTables("B单位表格") '指定数据来源

f.SourceCols = "fa piao号码,产品名称" '指定数据来源列

f.DataTable = DataTables("差异统计") '指定数据接收表

f.DataCols = "fa piao号码,产品名称" '指定数据接收列

f.ExcludeExistValue = True

f.Fill() '填充数据

For Each dr As DataRow In DataTables("差异统计表").DataRows

    dr("A单位产品数量") = DataTables("A单位表格").Compute("sum(数量)","fa piao号码 = '" & dr("fa piao号码") & "' and 产品名称 = '" & dr("产品名称") & "'")

    dr("B单位产品数量") = DataTables("B单位表格").Compute("sum(数量)","fa piao号码 = '" & dr("fa piao号码") & "' and 产品名称 = '" & dr("产品名称") & "'")

Next