- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教学生成绩统计 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170221)
-- 发布时间：2021/7/16 23:44:00
-- 请教学生成绩统计
语文 | 数学 | 英语 | 语数英 | 物理 | 化学 | 生物 | 物化生 | 语数英物化生 | ||||||||||||||||||||
分数 | 级名 | 班名 | 分数 | 级名 | 班名 | 分数 | 级名 | 班名 | 小计 | 级名 | 班名 | 分数 | 级名 | 班名 | 分数 | 级名 | 班名 | 分数 | 级名 | 班名 | 小计 | 级名 | 班名 | 总分数 | 级名 | 班名 | ||
1 |
| 123.5 |
|
| 145 |
|
| 148 |
|
|
|
|
| 89 |
|
| 100 |
|
| 99 |
|
|
|
|
|
|
|
|
1 |
| 100 |
|
| 138 |
|
| 128 |
|
|
|
|
| 90 |
|
| 98 |
|
| 98.5 |
|
|
|
|
|
|
|
|
2 |
| 98 |
|
| 125 |
|
| 135.5 |
|
|
|
|
| 95 |
|
| 99.5 |
|
| 90 |
|
|
|
|
|
|
|
|
2 |
| 105 |
|
| 119.5 |
|
| 132 |
|
|
|
|
| 89 |
|
| 78 |
|
| 98 |
|
|
|
|
|
|
|
|
2 |
| 125 |
|
| 128 |
|
| 119 |
|
|
|
|
| 79 |
|
| 88 |
|
| 98 |
|
|
|
|
|
|
|
|
3 |
| 135 |
|
| 132 |
|
| 129 |
|
|
|
|
| 99.5 |
|
| 82 |
|
| 90 |
|
|
|
|
|
|
|
|
3 |
| 118.5 |
|
| 108 |
|
| 148 |
|
|
|
|
| 100 |
|
| 100 |
|
| 99 |
|
|
|
|
|
|
|
|
老师：您好！
上表是“AA学校”一年级的一次考试成绩。请教老师一下：A、如何用代码来实现每个同学各科的年级排名及班级排名？B、如何用代码来实现每个同学语数英的小计分数、年级排名及班级排名？C、如何用代码来实现每个同学物化生的小计分数、年级排名及班级排名？ 下载信息 [文件大小： 下载次数： ] 
点击浏览该文件:辉瑞科技公司.foxdb
如何用代码来实现每个同学语数英物化生的总分数、年级排名及班级排名？
-- 发布时间：2021/7/17 1:47:00
-- 请教学生成绩统计
老师：我的版本是2021.4.5之前的。谢谢！！
-- 发布时间：2021/7/17 8:29:00
--
For Each dr As DataRow In DataTables("学生成绩统计表").DataRows
dr("语数英_小计")=dr("语文_分数")+dr("数学_分数")+dr("英语_分数")
dr("物化生_小计")=dr("物理_分数")+dr("化学_分数")+dr("生物_分数")
dr("语数英物化生_总分数")=dr("语数英_小计")+dr("物化生_小计")
Next
Dim drs As List(of DataRow) = DataTables("学生成绩统计表").Select("班级 is not null","语文_分数")
For i As Integer = 0 To drs.Count - 1
drs(i)("语文_级名") = i + 1
Next
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
Next
Next
其他类同
-- 发布时间：2021/7/17 8:43:00
--
这个附件的名字。。。。就很让人联想很多。