DataColChanged事件代码
If e.DataCol.Name = "学科" Then
If e.NewValue Is Nothing Then
e.DataRow("班级平均分") = Nothing
Else
Dim Avg As Single = Math.Round(DataTables("学生各科成绩表").Compute("Avg(" & e.DataRow("学科") & ")","[班级] = '" & e.Datarow("班级") & "' And [年级] = '" & e.DataRow("年级") & "'" ),1)
if Avg > 0 then
e.DataRow("班级平均分") = Avg
End if
End If
End If
[此贴子已经被作者于2008-12-3 0:29:06编辑过]