以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  排序代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91667)
--  作者：刘林
--  发布时间：2016/10/16 15:31:00
--  排序代码
Dim dt As DataTable = DataTables("成绩")

    Dim Arys As List(Of String())  = dt.GetValues("考试名称|班级代码")
    For Each Ary As String() In Arys
        Dim drs As List(Of DataRow) = dt.Select("[考试名称] = \'" & ary(0) & "\' And XXXXXXXXX, "折总 DESC")
        For n As Integer = 0 To drs.Count - 1 \'遍历所有行
            If n > 0 AndAlso drs(n)("折总") = drs(n-1)("折总") Then \'如果总分和上一行相同
                drs(n)("校序") = drs(n-1)("校序") \'则排名等于上一行
            Else
                drs(n)("校序") = n + 1 \'设置排名
            End If
        Next
    Next
老师，你好，成绩表中有个班级代码字段，规则是0321214501   (03区县） 21（学校） 2（初中）14（14级）5（期） 01 班
我想做个一排出每次考试名称下的各校序，请问XXXX处代码怎么写，谢谢
--  作者：狐狸爸爸
--  发布时间：2016/10/16 17:24:00
--  
增加名为学校的表达式列，表达式为：SubString([班级代码],3,2)

有了学校列，你想怎样都行。