主题：如何分类全表和表中部分数据排序

Dim dt As dataTable = dataTables("学生成绩")
Dim drs As List(Of DataRow) = dt.Select("", "总分 desc")
Dim pzf As Double = 0
For i As Integer = 0 To drs.Count - 1
    If drs(i)("总分") <> pzf Then
        drs(i)("年名") = i + 1
        pzf = drs(i)("总分")
    Else
        drs(i)("年名") = drs(i-1)("年名")
    End If
Next

drs = dt.Select("", "班级, 总分 desc")
pzf = 0
Dim pbj As String = ""
Dim pmc As Integer = 1
For i As Integer = 0 To drs.Count - 1
    If drs(i)("班级") <> pbj Then
        pbj = drs(i)("班级")
        pmc = 1
    End If
    If drs(i)("总分") <> pzf Then
        drs(i)("班名") = pmc
        pmc += 1
        pzf = drs(i)("总分")
    Else
        drs(i)("班名") = pmc
    End If
Next

http://www.foxtable.com/help/topics/0213.htm

Dim dt As dataTable = dataTables("学生成绩")
Dim drs As List(Of DataRow) = dt.Select("", "总分 desc")
Dim pzf As Double = 0
For i As Integer = 0 To drs.Count - 1
    If drs(i)("总分") <> pzf Then
        drs(i)("年名") = i + 1
        pzf = drs(i)("总分")
    Else
        drs(i)("年名") = drs(i-1)("年名")
    End If
Next

drs = dt.Select("", "班级, 总分 desc")
Dim pbj As String = ""
Dim pmc As Integer = 1
For i As Integer = 0 To drs.Count - 1
    If drs(i)("班级") <> pbj Then
        pbj = drs(i)("班级")
        pmc = 1
        pzf = 0
    End If
    If drs(i)("总分") <> pzf Then
        drs(i)("班名") = pmc
        pzf = drs(i)("总分")
    Else
        drs(i)("班名") = drs(i-1)("班名")
    End If
    pmc += 1
Next