[求助]关于分组统计(已解决) - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2959人关注过本帖树形打印复制链接主题：[求助]关于分组统计(已解决)

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编辑过]

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/9 10:10:00 [只看该作者]

Dim g As New GroupTableBuilder("统计表1", DataTables("表A"))
g.Groups.AddDef("工位")
g.Groups.AddDef("批次")
g.Totals.AddDef("数量")

g.Filter = "批次 = '2'"
g.Build()
MainTable = Tables("统计表1")

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/9 10:13: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()
MainTable = Tables("统计表1")

yyzlxc

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2015/6/9 10:16:00 [只看该作者]

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

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/9 10:22:00 [只看该作者]

根据什么计算

[此贴子已经被作者于2015/6/9 10:27:06编辑过]

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/9 10:27:00 [只看该作者]

g = New GroupTableBuilder("统计表1", DataTables("统计表1"))
g.Groups.AddDef("工位")
g.Totals.AddDef("数量")
g.Totals.AddDef("平均","产量")
g.Totals.AddDef("次数", AggregateEnum.Average)
g.Build()
MainTable = Tables("统计表1")

MainTable = Tables("统计表1")

yyzlxc

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

大红袍

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/9 10:36:00 [只看该作者]

代码是最简的了。

g = New GroupTableBuilder("统计表1", DataTables("统计表1"))
g.Groups.AddDef("工位")
g.Totals.AddDef("数量")
g.Totals.AddDef("平均","产量")
g.Build()
MainTable = Tables("统计表1")

y2287958

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4642 积分：33860 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2015/6/9 10:42:00 [只看该作者]

学习，谢谢。

非常好的思路，可以无限扩展。

狐狸爸爸

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2015/6/9 11:00: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, "平均")
Dim g2 As New GroupTableBuilder("统计表1", g.Build(False))
g2.Groups.AddDef("工位")
g2.Totals.AddDef("数量")
g2.Totals.AddDef("平均","产量")
g2.Build()
MainTable = Tables("统计表1")

[此贴子已经被作者于2015/6/9 11:01:04编辑过]

下一主题 >> << 上一主题

总数 13 1 2 下一页

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