代码也可以改为,简单点:
If e.DataCol.name="天数" OrElse e.DataCol.name="分组" Then
If e.DataRow.IsNull("天数")=False AndAlso e.DataRow.IsNull("分组")=False Then
e.DataRow("最高分") = DataTables("笔试成绩").Compute("max(总成绩)","天数='" & e.DataRow("天数") & "' and 分组='" & e.DataRow("分组") & "'")
e.DataRow("最低分") = DataTables("笔试成绩").Compute("min(总成绩)","天数='" & e.DataRow("天数") & "' and 分组='" & e.DataRow("分组") & "'")
e.DataRow("总分") = DataTables("笔试成绩").Compute("sum(总成绩)","天数='" & e.DataRow("天数") & "' and 分组='" & e.DataRow("分组") & "'") - e.DataRow("最高分") -e.DataRow("最低分")
e.DataRow("计数") = DataTables("笔试成绩").Compute("Count(总成绩)","天数='" & e.DataRow("天数") & "' and 分组='" & e.DataRow("分组") & "'")
e.DataRow("本组平均值")= (e.DataRow("总分") - e.DataRow("最高分") - e.DataRow("最低分")) / (e.DataRow("计数") -2)
End If
End If
[此贴子已经被作者于2013-11-14 15:34:46编辑过]