表达式无法处理,只能使用代码,参考:http://www.foxtable.com/webhelp/scr/0681.htm
比如语文_及格率改为数据列,然后Datacolchanged代码类似:
If e.DataCol.Name = "班级" Then
Dim cnt As Integer = DataTables("分数表").Compute("Count(班级)","班级=" & e.DataRow("班级" ))
If cnt > 0 Then
e.DataRow("语文_及格率") = DataTables("分数表").Compute("Count(班级)","班级=" & e.NewValue & " and 语文 >= 60") / cnt
Else
e.DataRow("语文_及格率") = 0
End If
End If