Dim drs1 As List(Of DataRow) = DataTables("初三汤原考点").Select("代码 % 2 = 0","成绩 desc")

Dim drs2 As List(Of DataRow) = DataTables("初三汤原考点").Select("代码 % 2 = 1","成绩 desc")

Dim cnt As Integer = math.min(drs1.count,drs2.count)

Dim idx As Integer = 1

For i As Integer = 0 To cnt - 1

drs1(i)("排序") = idx

idx += 1

drs2(i)("排序") = idx

idx += 1

Next

If drs1.count > cnt Then

For i As Integer = cnt To drs1.count - 1

drs1(i)("排序") = idx

idx += 1

Next

Else

For i As Integer = cnt To drs2.count - 1

drs2(i)("排序") = idx

idx += 1

Next

End If

Tables("初三汤原考点").sort = "排序"