主题：如何写班级的排名公式

不对啊,不是按班排的序,这个是按全年级排的,我要是按班的排序

你这个里面没有年级列，如果要按年级排序，加上年级列，代码中的班级改为年级即可，原理一样。

您没有明白我的意思,各科成绩包括总分在班这个范围排列.比如1班的语文、数学、在1班的排名，总分也是在1班这个小范围里面排序。

CZY版的解答是正确的，但速度太慢了。

e.Form.Controls("Label1").text="请稍等,正在计时..."

dim timestart,timeend as date

timestart=date.now

Dim pm As List(Of String) = CurrentTable.DataTable.GetUniqueValues("","班级")

Dim pmc As Integer

Dim ColNames() As String = {"数学","英语","化学","物理","总分"}

Dim TotalName As String

CurrentTable.Redraw = False '刷新表

For Each ColName As string In ColNames

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

        CurrentTable.Filter= "[班级] = " & pm(i)

        Currenttable.sort = ColName & " DESC"

        pmc = 0

        TotalName = ColName & "班级排名"

        For n As integer = 0 to Currenttable.rows.Count -1

            pmc = pmc +1

            If n > 0 AndAlso Currenttable.rows(n)(ColName) = Currenttable.rows(n-1)(ColName) Then

                CurrentTable.Rows(n)(TotalName ) = CurrentTable.Rows(n-1)(TotalName )

            Else

                CurrentTable.Rows(n)(TotalName ) = pmc

            End If

        Next

    Next

Next

Tables("学生各科成绩表").Sort = "总分 DESC" '排序,对总分列以降序排序

CurrentTable.Filter = "" '取消筛选

CurrentTable.Redraw = True '刷新表

timeend=date.now

e.Form.Controls("Label1").text="耗时" & (timeend-timestart).TotalSeconds & "秒"

Messagebox.Show("统计完毕!")

试过没有，速度怎么样。？？？73秒呵呵

要快，就用这个，0.5秒：

e.Form.Controls("Label1").text="请稍等,正在计时..."

dim timestart,timeend as date

timestart=date.now

Dim pm As List(Of String) = CurrentTable.DataTable.GetUniqueValues("","班级")

Dim pmc As Integer

Dim ColNames() As String = {"数学","英语","化学","物理","总分"}

Dim TotalName As String

CurrentTable.Redraw = False '刷新表

For Each ColName As string In ColNames

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

        If pm(i) = "" Then

            Continue for

        End If

        Dim drs As List(Of DataRow) = Currenttable.DataTable.Select("[班级] = " & pm(i), ColName & " DESC")

        pmc = 0

        TotalName = ColName & "班级排名"

        For n As integer = 0 To drs.Count - 1

            pmc = pmc +1

            If n > 0 AndAlso drs(n)(ColName ) = drs(n-1)(ColName) Then

                drs(n)(TotalName ) = drs(n-1)(TotalName )

            Else

                drs(n)(TotalName ) = pmc

            End If

        Next

    Next

Next

Tables("学生各科成绩表").Sort = "总分 DESC" '排序,对总分列以降序排序

CurrentTable.Redraw = True '刷新表

timeend=date.now

e.Form.Controls("Label1").text="耗时" & (timeend-timestart).TotalSeconds & "秒"

Messagebox.Show("统计完毕!")

 

ok,谢谢！！成功

同一表中有不同期数，不同年级，不同班级的成绩，需要对同一期数，同一年级，同一班级排名，如何设计？

 

新开帖子，上传对应测试数据。