Dim bd1 As New SQLGroupTableBuilder("月度分客户订发退数据","量产订单")
bd1.C
Dim dt1 As fxDataSource
bd1.Groups.AddDef("供货鞋厂") '根据品名分组
bd1.Groups.AddDef("订单日期", DateGroupEnum.Year, "年") '根据型号分组
bd1.Groups.AddDef("订单日期", "月") '根据型号分组
bd1.Totals.AddDef("订购数量","量产_订单数量") '对数量进行统计
bd1.Totals.AddDef("发货数量","量产_订单实发量") '对金额进行统计
dt1 = bd1.BuildDataSource()
Dim bd2 As New SQLGroupTableBuilder("统计表2","样品订单")
bd2.C
Dim dt2 As fxDataSource
bd2.Groups.AddDef("供货鞋厂") '根据品名分组
bd2.Groups.AddDef("样单时间", DateGroupEnum.Year, "年") '根据型号分组
bd2.Groups.AddDef("样单时间", "月") '根据型号分组
bd2.Totals.AddDef("订购数量","样品_订单数量") '对数量进行统计
bd2.Totals.AddDef("发货数量","样品_订单实发量") '对金额进行统计
dt2 = bd2.BuildDataSource()
Dim bd3 As New SQLGroupTableBuilder("统计表3","成品发货")
bd3.C
Dim dt3 As fxDataSource
bd3.Groups.AddDef("客户名称","供货鞋厂") '根据品名分组
bd3.Groups.AddDef("量革日期",DateGroupEnum.Year, "年") '根据型号分组
bd3.Groups.AddDef("量革日期","月") '根据型号分组
bd3.Totals.AddDef("数量SF","出货_数量") '对数量进行统计
bd3.Totals.AddExp("出货_正批量产","iif(细分类='',数量SF,0)") '对金额进行统计
bd3.Totals.AddExp("出货_样品","iif(细分类='样品',数量SF,0)") '对金额进行统计
bd3.Totals.AddExp("退货_量产","iif(细分类='量产退回',数量SF,0)") '对金额进行统计
bd3.Totals.AddExp("退货_样品","iif(细分类='样品退回',数量SF,0)") '对金额进行统计
dt3 = bd3.BuildDataSource()
Dim nms As String() = {"供货鞋厂","年","月"} '指定连接列
dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
dt1.Combine(nms,dt3,nms) '将退货统计数据组合到进货统计数据
dt1.Show("月度分客户订发退数据") '显示统计结果
但在执行代码时会报如下错误:
此主题相关图片如下:微信截图_20190915113250.png

此主题相关图片如下:微信截图_20190915113456.png

请问代码哪里还有问题?麻烦帮我修改一下呢!谢谢!!