Tables("成绩总表竖表").ResumeRedraw Tables("成绩总表竖表").StopRedraw Dim Count As Integer Dim kms As List(of String) = DataTables("成绩总表竖表").GetValues("科目") For Each km As String In kms '以下设置学科成绩按全校排名和等级 Dim drss As List(of DataRow)=DataTables("成绩总表竖表").Select("[科目]='" & km & "'", "分数 DESC ") count=0 For n As Integer = 0 To drss.Count - 1 '遍历所有行 Count = Count + 1 If n > 0 AndAlso drss(n)("分数") = drss(n-1)("分数") Then '如果总分和上一行相同 drss(n)("全校名次") = drss(n-1)("全校名次") '则排名等于上一行 Else drss(n)("全校名次") =count '设置排名 End If If drss(n)("全校名次")<=drss.Count *0.15 Then drss(n)("等级")="A" ElseIf drss(n)("全校名次")<=drss.Count *0.45 Then drss(n)("等级")="B" ElseIf drss(n)("全校名次")<=drss.Count *0.75 Then drss(n)("等级")="C" ElseIf drss(n)("全校名次")<=drss.Count *0.95 Then drss(n)("等级")="D" Else drss(n)("等级")="E" End If Next Next Tables("成绩总表竖表").ResumeRedraw
|