主题：关于统计请教

 参考实例

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=100793&skin=0

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

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

 报什么错？贴出错误。

 请上传实例测试。

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)")
Next
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%")
Next
MainTable = Tables("按班级统计")