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

请问如何做每个班级的每个项目最大值，最小值，平均值，分数，等级（及格率）的统计表呢？

此主题相关图片如下：tj.jpg

此主题相关图片如下：44.jpg

请问是不是代码在哪里执行呢？是不是要新建一张临时表来存放统计出来的数据？

请问下，运行的统计的时候是不是在原来表的生成数据？会影响原始数据吗？

以下是引用yangjing在2017/6/15 11:45:00的发言：
请问下，运行的统计的时候是不是在原来表的生成数据？会影响原始数据吗？

你可以在原表生成数据。你删除掉清除数据的代码就好了。

参考 http://www.foxtable.com/webhelp/scr/0681.htm

我按照代码修改了下

现在能统计了，但是请问如何根据表中“测试日期”中的年限，比如2016年，在班级的前面生成一个列“测试年”，把2016年内的所有数据统计进去呢？

下面是代码

Dim b As New SQLGroupTableBuilder("按班级统计","体质数据")

b.Groups.AddDef("班级")

b.Totals.AddExp("人数","学籍号","",AggregateEnum.Count) '统计人数

Dim nms() As String = {"BMI分数","肺活量分数","五十米跑分数","坐位体前屈分数","立定跳远分数"}

For Each nm As String In nms '利用表达式统计及格人数和优秀人数

b.Totals.Addexp(nm & "_及格", "iif(" & nm & " >= 60, 1, 0)")

b.Totals.Addexp(nm & "_优秀", "iif(" & nm & " >= 90, 1, 0)")

b.VerticalTotal = True

b.Build()

For Each nm As String In nms '对生成的统计表增加表达式列,计算及格率和优秀率

DataTables("按班级统计").DataCols.Add(nm & "_及格率",Gettype(Double), nm & "_及格/人数" )

Tables("按班级统计").Cols(nm & "_及格率").Move(Tables("按班级统计").Cols(nm & "_及格").Index + 1)

DataTables("按班级统计").DataCols.Add(nm & "_优秀率",Gettype(Double), nm & "_优秀/人数" )

Tables("按班级统计").Cols(nm & "_优秀率").Move(Tables("按班级统计").Cols(nm & "_优秀").Index + 1)

DataTables("按班级统计").DataCols(nm & "_及格率").SetFormat("0.00%")

DataTables("按班级统计").DataCols(nm & "_优秀率").SetFormat("0.00%")

MainTable = Tables("按班级统计")

此主题相关图片如下：2132135.jpg

Dim b As New SQLGroupTableBuilder("按班级统计","体质数据")

b.Groups.AddDef("日期",DateGroupEnum.Year,"年")

b.Groups.AddDef("班级")

是这样吗？

Dim b As New SQLGroupTableBuilder("按班级统计","体质数据")

b.Groups.AddDef("日期",DateGroupEnum.Year,"年")

b.Groups.AddDef("班级")

b.Totals.AddExp("人数","学籍号","",AggregateEnum.Count) '统计人数

Dim nms() As String = {"BMI分数","肺活量分数","五十米跑分数","坐位体前屈分数","立定跳远分数"}

For Each nm As String In nms '利用表达式统计及格人数和优秀人数

b.Totals.Addexp(nm & "_及格", "iif(" & nm & " >= 60, 1, 0)")

b.Totals.Addexp(nm & "_优秀", "iif(" & nm & " >= 90, 1, 0)")

b.VerticalTotal = True

b.Build()

For Each nm As String In nms '对生成的统计表增加表达式列,计算及格率和优秀率

DataTables("按班级统计").DataCols.Add(nm & "_及格率",Gettype(Double), nm & "_及格/人数" )

Tables("按班级统计").Cols(nm & "_及格率").Move(Tables("按班级统计").Cols(nm & "_及格").Index + 1)

DataTables("按班级统计").DataCols.Add(nm & "_优秀率",Gettype(Double), nm & "_优秀/人数" )

Tables("按班级统计").Cols(nm & "_优秀率").Move(Tables("按班级统计").Cols(nm & "_优秀").Index + 1)

DataTables("按班级统计").DataCols(nm & "_及格率").SetFormat("0.00%")

DataTables("按班级统计").DataCols(nm & "_优秀率").SetFormat("0.00%")

MainTable = Tables("按班级统计")

但是会报错呀

主题：关于统计请教