请教学生成绩统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师：您好！

上表是“AA学校”一年级的一次考试成绩。请教老师一下：A、如何用代码来实现每个同学各科的年级排名及班级排名？B、如何用代码来实现每个同学语数英的小计分数、年级排名及班级排名？C、如何用代码来实现每个同学物化生的小计分数、年级排名及班级排名？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:辉瑞科技公司.foxdb

如何用代码来实现每个同学语数英物化生的总分数、年级排名及班级排名？

老师：我的版本是2021.4.5之前的。谢谢！！

For Each dr As DataRow In DataTables("学生成绩统计表").DataRows

dr("语数英_小计")=dr("语文_分数")+dr("数学_分数")+dr("英语_分数")

dr("物化生_小计")=dr("物理_分数")+dr("化学_分数")+dr("生物_分数")

dr("语数英物化生_总分数")=dr("语数英_小计")+dr("物化生_小计")

Dim drs As List(of DataRow) = DataTables("学生成绩统计表").Select("班级 is not null","语文_分数")

For i As Integer = 0 To drs.Count - 1

drs(i)("语文_级名") = i + 1

Dim lst As List(of String ) = DataTables("学生成绩统计表").GetValues("班级","班级 is not null")

For Each s As String In lst

drs = DataTables("学生成绩统计表").Select("班级='" & s & "'","语文_分数")

For i As Integer = 0 To drs.Count - 1

drs(i)("语文_班名") = i + 1

其他类同

这个附件的名字。。。。就很让人联想很多。

主题：请教学生成绩统计