Dim g As New sqlGroupTableBuilder("统计表1","学生信息")
Dim dt1 As Table = Tables("试卷征订数_table1")
g.C
g.Groups.AddDef("学校名称")
g.Groups.AddDef("年级")
g.Totals.AddDef("学生姓名",AggregateEnum.Count,"人数")
g.Totals.AddDef("班级",AggregateEnum.Count,"班数")
dt1.DataSource = g.BuildDataSource()
dt1.DataTable.DataCols.Add("试卷数",Gettype(Double),"人数 + 班数 * 2")
dt1.DataTable.DataCols.Add("大",Gettype(Double))
dt1.DataTable.DataCols.Add("小",Gettype(Double))
For Each r As Row In dt1.Rows
r("大") = Math.Floor(r("试卷数")/30)
r("小") = Math.Ceiling((r("试卷数") Mod 30)/ 5)
Next