Dim dr As DataRow = e.DataRowDim dt As DataTable = DataTables("成绩")If e.DataCol.Name = "学校代码" Then dr("语文_平均分") = dt.Compute("avg(语文_语总)","[学校代码] = '" & dr("学校代码") & "'")End If
http://www.foxtable.com/webhelp/scr/0099.htm