Foxtable(狐表)用户栏目专家坐堂 → 组合多个统计结果的问题


  共有1863人关注过本帖树形打印复制链接

主题:组合多个统计结果的问题

帅哥哟,离线,有人找我吗?
wangj6666
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:232 积分:1891 威望:0 精华:0 注册:2016/1/11 8:40:00
组合多个统计结果的问题  发帖心情 Post By: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
图片点击可在新窗口打开查看
请问代码哪里还有问题?麻烦帮我修改一下呢!谢谢!!

 回到顶部
帅哥哟,离线,有人找我吗?
wangj6666
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:232 积分:1891 威望:0 精华:0 注册:2016/1/11 8:40:00
  发帖心情 Post By:2019/9/15 11:42:00 [只看该作者]

上面的代码中
bd1.c行实际是bd1.C
bd2.c行实际是bd2.C
bd3.c行实际是bd3.C
代码上传后不知怎么被截断了。


 回到顶部
帅哥哟,离线,有人找我吗?
wangj6666
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:232 积分:1891 威望:0 精华:0 注册:2016/1/11 8:40:00
  发帖心情 Post By:2019/9/15 11:43:00 [只看该作者]

怎么重新填写后还是被截断了,总之这行就是正确指向的数据源哈。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/15 13:35:00 [只看该作者]

Dim nms As String() = {"供货鞋厂"} '指定连接列,不需要添加日期列

 回到顶部
帅哥哟,离线,有人找我吗?
wangj6666
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:232 积分:1891 威望:0 精华:0 注册:2016/1/11 8:40:00
  发帖心情 Post By:2019/9/16 9:24:00 [只看该作者]

我将年月去掉后如下:
Dim nms As String() = {"供货鞋厂"} '指定连接列
dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
dt1.Combine(nms,dt3,nms) '将退货统计数据组合到进货统计数据
dt1.Show("月度分客户订发退数据") '显示统计结果

执行时还是一样的报错?!

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/16 9:31:00 [只看该作者]

请上传具体实例测试

 回到顶部
帅哥哟,离线,有人找我吗?
wangj6666
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:232 积分:1891 威望:0 精华:0 注册:2016/1/11 8:40:00
  发帖心情 Post By:2019/9/16 9:34:00 [只看该作者]

能远程帮我看看吗?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/16 9:57:00 [只看该作者]

新建一个项目,把这几个表导些测试数据到新项目,然后发上来

 回到顶部