主题：成绩分布

Dim t As Table = e.Form.controls("Table1").Table

Dim b As New sqlGroupTableBuilder("统计表1","Select  班级,姓名,科目,分数 From {成绩表}","")

b.Groups.AddDef("班级")

b.Groups.AddDef("科目")

b.Totals.AddDef("分数",AggregateEnum.Max,"最高分")

b.Totals.AddDef("分数",AggregateEnum.Min,"最低分")

b.Totals.AddDef("分数",AggregateEnum.Average,"平均分")

b.Totals.AddExp("分布_60以下","iif(分数 < 60,1,0)")

b.Totals.AddExp("分布_60-70","iif(分数 >= 60 And 分数 < 70,1,0)")

b.Totals.AddExp("分布_70-80","iif(分数 >= 70 And 分数 < 80,1,0)")

b.Totals.AddExp("分布_80-90","iif(分数 >= 80 And 分数 < 90,1,0)")

b.Totals.AddExp("分布_90-100","iif(分数 >= 90 And 分数 < 100,1,0)")

b.Totals.AddExp("分布_100-110","iif(分数 >= 100 And 分数 < 110,1,0)")

b.Totals.AddExp("分布_110-120","iif(分数 >= 110 And 分数 < 120,1,0)")

b.Totals.AddExp("分布_120-130","iif(分数 >= 120 And 分数 < 130,1,0)")

b.Totals.AddExp("分布_130-140","iif(分数 >= 130 And 分数 < 140,1,0)")

b.Totals.AddExp("分布_140以上","iif(分数 >= 140,1,0)")

'b.build() ‘这一句去掉，完全多余

t.DataSource = b.BuildDataSource()