还不如直接生成一个分组统计表的好
Dim g As New GroupTableBuilder("统计表", DataTables("物料明细"))
g.Groups.AddDef("物料")
g.Groups.AddDef("物料分类")
g.Groups.AddDef("物料名称")
g.Groups.AddDef("型号规格")
g.Groups.AddDef("单位")
g.Groups.AddDef("日期", DateGroupEnum.None)
g.Totals.AddDef("入仓_数量")
g.Totals.AddDef("入仓_金额")
g.Totals.AddDef("出仓_数量")
g.Totals.AddDef("出仓_金额")
g.Totals.AddDef("库存_数量")
g.Totals.AddDef("库存_金额")
g.Build()
For Each dr As DataRow In DataTables("统计表").DataRows
dr("库存_数量") = dr("入仓_数量") - dr("出仓_数量")
dr("库存_金额") = dr("入仓_金额") - dr("出仓_金额")
Next
MainTable = Tables("统计表")