主题：统计问题

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

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