主题：班级平均分如何计算

此主题相关图片如下：snap1.jpg




此主题相关图片如下：snap2.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:学生成绩统计分析表.rar

'在"上报教育局成绩表"这个表中生成各个年级的各个班每一科的行
for i as integer  = 0 to tables("学科").rows.count -1
   Dim lianjis As List(Of String)
   lianjis = DataTables("学生各科成绩表").GetUniqueValues("", "年级") '取所有的年级
       For Each lj As String In lianjis
       Dim bianji As List(Of String)
       bianji = DataTables("学生各科成绩表").GetUniqueValues("", "班级") '取所有的班级
             For Each bian As String In bianji
                 Dim dr As DataRow = DataTables("上报教育局成绩表").AddNew()
                     dr("年级") = lj '在年级列中写入年级值
                     dr("班级") = bian
                     dr("学科") = tables("学科").rows(i)("学科") '在学科列中写入语文，数学等等
             next
        Next
Next

'重算"班级平均分"中的计算代码
DataTables("上报教育局成绩表").DataCols("班级平均分").Recalc()