[求助]关于两个表两列差异统计问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

A单位表格

fa piao号码	产品名称	数量	单价
001	A	5	1
001	B	7	2
001	C	9	3

B单位表格

fa piao号码	产品名称	数量	单价
001	B	7	2
001	C	7	3
002	D	11	4

现在想做一个

差异统计表

通过窗口达到如下：

fa piao号码	产品名称	A单位产品数量	B单位产品数量	数量差异
001	A	5	0
001	B	7	7
001	C	9	7
002	D	0	11

怎么才能实现两个表的列“fa piao号码”自动填充到《差异统计表》

然后相同号码的“产品名称列”再接着填充到里面呢！

各位大神有啥好的建议！

单列差异统计的窗口公式如下（不知道如何修改）

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() '填充数据

那这样两个表产品名称的非交集就不显示了吧

比如B表中的D产品

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("产品名称") & "'")

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

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

如果我还想索引单价等其他的项目我就这样继续加就可以是吗？？？

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