下面这段代码是在datatables中进行排序用的,如果我用的副本表进行排序,如何修改代码?
'获得所有班级名称,保存在集合中
Dim bjs As List(Of
String) =
DataTables("成绩表").GetUniqueValues("","班级")
For Each
bj
As String In bjs
'获得该班级的全部行,按总分降序排序
Dim
drs
As List(Of
DataRow) = DataTables("成绩表").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