学生成绩汇总表中有某某学科班级排名和某某学科年级,如:语文年级排名、语文班级排名、数学年级排名、数学班级排名等,下面这段:Tables("学生成绩汇总表").StopRedrawDim bjs As List(Of String) = DataTables("学生成绩汇总表").GetValues("班级","[班级] Is Not NULL")
Dim Count As Integer
Dim ColNames() As String = {"语文","数学","英语","化学","物理","总分"}
Dim TotalName As String
For Each ColName As String In ColNames '
For i As Integer = 0 To bjs.Count -1
Dim drs As List(Of DataRow) = DataTables("学生成绩汇总表").Select("[班级] = " & bjs(i), ColName & " DESC")
Count = 0
TotalName = ColName & "排名"
For n As Integer = 0 To drs.Count - 1
Count = Count + 1
If n > 0 AndAlso drs(n)(ColName ) = drs(n-1)(ColName) Then
drs(n)(TotalName ) = drs(n-1)(TotalName )
Else
drs(n)(TotalName ) = Count
End If
Next
Next
Next
Tables("学生成绩汇总表").Sort = "总分 DESC"
Tables("学生成绩汇总表").ResumeRedraw
如何实现学科的年级排名和学科的班级排名。谢谢老师!!
[此贴子已经被作者于2019/11/27 18:22:51编辑过]