For i as Integer = Tables("八年级").cols.count - 11 to Tables("八年级").cols.count - 3 For Each dr as DataRow in DataTables(Tables("八年级").cols(i).name & "层次").DataRows dr("参考人数") = DataTables("八年级").Compute("count(单位)", "[单位] = '" & dr("单位") & "'") dr("平均分") = DataTables("八年级").Compute("Avg(Tables("八年级").cols(i).name
)", "[单位] = '" & dr("单位") & "'") dr("最高分") = DataTables("八年级").Compute("Max(Tables("八年级").cols(i).name
)", "[单位] = '" & dr("单位") & "'") next next
|