- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 组合多个统计结果的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140812)
-- 发布时间：2019/9/15 11:39:00
-- 组合多个统计结果的问题
各位专家好！
我有三个数据表分别为量产订单、样品订单、成品发货，三个表中分别有供货鞋厂、供货鞋厂、客户名称列。并编辑了如下代码：
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
请问代码哪里还有问题？麻烦帮我修改一下呢！谢谢！！
-- 发布时间：2019/9/15 11:42:00
--
上面的代码中
bd1.c行实际是bd1.C
bd2.c行实际是bd2.C
bd3.c行实际是bd3.C
代码上传后不知怎么被截断了。
-- 发布时间：2019/9/15 11:43:00
--
怎么重新填写后还是被截断了，总之这行就是正确指向的数据源哈。
-- 发布时间：2019/9/15 13:35:00
--
Dim nms As String() = {"供货鞋厂"} \'指定连接列，不需要添加日期列
-- 发布时间：2019/9/16 9:24:00
--
我将年月去掉后如下：
Dim nms As String() = {"供货鞋厂"} \'指定连接列
dt1.Combine(nms,dt2,nms) \'将销售统计数据组合到进货统计数据
dt1.Combine(nms,dt3,nms) \'将退货统计数据组合到进货统计数据
dt1.Show("月度分客户订发退数据") \'显示统计结果
执行时还是一样的报错？！
-- 发布时间：2019/9/16 9:31:00
--
请上传具体实例测试
-- 发布时间：2019/9/16 9:34:00
--
能远程帮我看看吗？
-- 发布时间：2019/9/16 9:57:00
--
新建一个项目，把这几个表导些测试数据到新项目，然后发上来