- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]年级排名代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96356)
-- 发布时间：2017/2/18 19:30:00
-- [求助]年级排名代码
[求助]年级排名代码咋写？
此主题相关图片如下：截图01.png
Dim bjs As List(Of String) = DataTables("成绩表").GetUniqueValues("[班级] 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"
我对原来成绩表，在班级排名基础上添加上了年级排名，代码咋写？
[此贴子已经被作者于2017/2/18 20:38:58编辑过]
-- 发布时间：2017/2/18 19:41:00
--
想举一反三，就是弄不了
-- 发布时间：2017/2/18 19:43:00
--
把班级换成年级，试过了，不行
-- 发布时间：2017/2/18 20:29:00
--
指指路，迷茫了
-- 发布时间：2017/2/18 20:33:00
--
有点色大师在吗
-- 发布时间：2017/2/18 22:16:00
--
石沉大海，听不到响声
-- 发布时间：2017/2/19 10:21:00
--
上传实例说明情况
-- 发布时间：2017/2/19 13:45:00
--
截图和问题在一楼
-- 发布时间：2017/2/19 20:38:00
--
上传实例。