主题：统计问题

举例好象不恰当，因为表中没有语文数据。

Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("成绩及优生划分")
If e.DataCol.Name = "班级" And e.DataRow.IsNull("班级") = False Then
    dr("总分_A优") = dt.Compute("Count(姓名)", "[总优] = 'A' And [班级] = '" & dr("班级") & "'" )
    dr("总分_B1优") = dt.Compute("Count(姓名)", "[总优] = 'B1' And [班级] = '" & dr("班级") & "'" )
    dr("总分_B2优") = dt.Compute("Count(姓名)", "[总优] = 'B2' And [班级] = '" & dr("班级") & "'" )
    dr("总分_C优") = dt.Compute("Count(姓名)", "[总优] = 'C' And [班级] = '" & dr("班级") & "'" )
End If

只做了个总分优，其它自己参照做吧.

最后行你应该用汇总模式。

道理非常简单，再思考下第二个语句为什么不行，相信你应该很快就能明白的。

Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("成绩及优生划分")
Dim Str As String = "And [班级] = '" & dr("班级") & "'"
If e.DataCol.Name = "班级" And e.DataRow.IsNull("班级") = False Then
    dr("物理/政治_A优") = dt.Compute("Count(姓名)", "[物优] = 'A'" & Str) + dt.Compute("Count(姓名)", "[政优] = 'A'" & Str)
End If