Foxtable(狐表)用户栏目专家坐堂 → [求助]关于分组统计(已解决)


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

主题:[求助]关于分组统计(已解决)

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


加好友 发短信
等级:七尾狐 帖子:1525 积分:10580 威望:0 精华:0 注册:2008/9/24 11:16:00
[求助]关于分组统计(已解决)  发帖心情 Post By:2015/6/9 10:06:00 [显示全部帖子]

如何统计各工位在某批次出现的次数(每个批次相同),并以此除数量得到每个工位的产量(即在统计表增加"次数"和"产量"两列,正确数据产量全部为50)。请各位老师指教,谢谢!!


图片点击可在新窗口打开查看此主题相关图片如下:捕获b.jpg
图片点击可在新窗口打开查看


Dim b As New GroupTableBuilder("统计表1",DataTables("表A"))
b.Groups.AddDef("工位") '根据产品分组
b.Totals.AddDef("数量") '对数量进行统计
b.Build '生成统计表
MainTable = Tables("统计表1")

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目6.table


[此贴子已经被作者于2015/6/9 12:36:56编辑过]

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


加好友 发短信
等级:七尾狐 帖子:1525 积分:10580 威望:0 精华:0 注册:2008/9/24 11:16:00
  发帖心情 Post By:2015/6/9 10:16:00 [显示全部帖子]

谢谢大红袍老师的回复,要求在统计表中增加产量列,值均为50,好像没有实现此要求。

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


加好友 发短信
等级:七尾狐 帖子:1525 积分:10580 威望:0 精华:0 注册:2008/9/24 11:16:00
  发帖心情 Post By:2015/6/9 10:34:00 [显示全部帖子]

通过以下代码,可以实现所需效果,如何简化代码,请老师指教,谢谢!!
Dim g As New GroupTableBuilder("统计表1", DataTables("表A"))
g.Groups.AddDef("工位")
g.Groups.AddDef("批次")
g.Totals.AddDef("工位", AggregateEnum.Count, "次数")
g.Totals.AddDef("数量")
g.Totals.AddDef("数量", AggregateEnum.Average, "平均")
g.Build()

Dim b As New GroupTableBuilder("统计表2",DataTables("统计表1"))
b.Groups.AddDef("工位") '根据产品分组
b.Totals.AddDef("数量") '对数量进行统计
b.Totals.AddDef("平均","产量") '对数量进行统计
b.Build '生成统计表
MainTable = Tables("统计表2")



图片点击可在新窗口打开查看此主题相关图片如下:捕获c.jpg
图片点击可在新窗口打开查看



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


加好友 发短信
等级:七尾狐 帖子:1525 积分:10580 威望:0 精华:0 注册:2008/9/24 11:16:00
  发帖心情 Post By:2015/6/9 11:01:00 [显示全部帖子]

这样的效果可能会更好一些,谢谢大红袍老师的指教,再次感谢!!

Dim g As New GroupTableBuilder("统计表1", DataTables("表A"))
g.Groups.AddDef("工位")
g.Groups.AddDef("批次")
g.Totals.AddDef("数量", AggregateEnum.Average, "平均")
g.Build()
g = New GroupTableBuilder("统计表1", DataTables("统计表1"))
g.Groups.AddDef("工位")
g.Totals.AddDef("平均","产量")
g.Build()
MainTable = Tables("统计表1")
[此贴子已经被作者于2015/6/9 12:15:30编辑过]

 回到顶部