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