'按供应商、型号统计销售
Dim bb As New SQLGroupTableBuilder("统计表1","出库")
bb.C
bb.AddTable("出库","型号","采购明细","型号") '添加统计表
bb.Groups.AddDef("出库日期", DateGroupEnum.Year, "年") '根据日期按年分组
bb.Groups.AddDef("{采购明细}.供应商") '根据供应商名称分组
bb.Groups.AddDef("{采购明细}.型号") '根据型号名称分组
bb.Totals.AddDef("{出库}.出库数量") '对数量进行统计
bb.Totals.Addexp("出货金额","{出库}.出库数量*{出库}.销售单价") '对数量进行统计
bb.Subtotal=True
Tables("客户产品分析_Table2").DataSource = bb.BuildDataSource()
此代码可以统计出数字,但个别统计数字有误,请指点。
采购明细表中有供应商、型号字段,出库表中有型号、出库数量字段,目的想统计每家供应商的每种型号对销售的贡献。