以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  分组统计  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171214)
--  作者：a272797388
--  发布时间：2021/8/22 16:40:00
--  分组统计
Dim g As New GroupTableBuilder("统计表1", DataTables("六年级"))
g.Groups.AddDef("考点", "", "学校名称")
g.Totals.AddDef("语文", AggregateEnum.Average, "语文_平均分")
g.Totals.AddDef("语文", AggregateEnum.Max, "语文_最高分")
g.Totals.AddDef("语文", AggregateEnum.Min, "语文_最低分")
g.Totals.AddDef("数学", AggregateEnum.Average, "数学_平均分")
g.Totals.AddDef("数学", AggregateEnum.Max, "数学_最高分")
g.Totals.AddDef("数学", AggregateEnum.Min, "数学_最低分")
g.Totals.AddDef("英语", AggregateEnum.Average, "英语_平均分")
g.Totals.AddDef("英语", AggregateEnum.Max, "英语_最高分")
g.Totals.AddDef("英语", AggregateEnum.Min, "英语_最低分")
g.Totals.AddDef("总分", AggregateEnum.Average, "总分_平均分")
g.Totals.AddDef("总分", AggregateEnum.Max, "总分_最高分")
g.Totals.AddDef("总分", AggregateEnum.Min, "总分_最低分")
g.Build()
MainTable = Tables("统计表1")



请问     g.Totals.AddDef("总分", AggregateEnum.Average, "总分_平均分")      把这个数除以3 ， 就是总分的平均分除以3， 命令如何改？
--  作者：有点蓝
--  发布时间：2021/8/22 20:30:00
--  
只能是生成统计表后再计算
……
g.Build()
MainTable =  Tables("统计表1")
for each r as row in  Tables("统计表1").rows
r("语文_平均分") = r("语文_平均分")/3
next