[求助]班级排名后怎么只排1班，而没有排后面的班？ Post By：2017/10/1 10:01:00 [显示全部帖子]
'获得所有班级名称,保存在集合中 Dim bjs As List(Of String) = DataTables("表A").GetValues("产品") For Each bj As String In bjs '获得该班级的全部行,按总分降序排序 Dim drs As List(Of DataRow) = DataTables("表A").Select("[产品] = '" & bj & "'", "销量 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
加好友 
发短信
Post By：2017/10/1 10:01:00 [显示全部帖子]
