主题：交叉查询分组统计

现有各个班的成绩总表，我想按班统计各个分数段的人数。请各位高手指点。如下图：

班级 姓名 总分 语文 数学 1班 a 601 108 120 2班 b 589 112 133 3班 C 551 98 145 2班 D 502 80 124 1班 E 508 90 85 3班 F 561 97 135
班级 1班 2班 3班 总分600分以上 1 　 　 总分550-600分 　 1 2 总分550以下 1 1

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

版主大哥，我是小白，能不能帮小兄弟码一下，谢谢你。提前祝你新年快乐。

上传实例

做个按钮执行代码

 

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("等级", Gettype(String), 32)
For Each v As String In DataTables("学生成绩").GetValues("班级")
    dtb.AddDef(v, Gettype(Double))
Next
dtb.Build()
Dim dt As Table = Tables("统计")
Dim dtsource As DataTable =  DataTables("学生成绩")
Dim ary1() As String = {"550分以上", "500-550"}
Dim ary2() As String = {750, 550}
Dim ary3() As String = {550, 500}
For i As Integer = 0 To ary1.length - 1
    Dim nr As Row = dt.AddNew
    nr("等级") = ary1(i)
    For j As Integer = 1 To dt.Cols.count-1
        nr(dt.Cols(j).name) = dtsource.Compute("count(班级)", "班级 = '" & dt.Cols(j).name & "' And 总分 > " & ary3(i) & " And 总分 <= " & ary2(i) & "")
    Next
Next
MainTable = dt

这样写

 

Dim ary2() As String = {750, 550, 500}
Dim ary3() As String = {550, 500, 0}

谢谢大神。

已经解决了  谢谢