Dim drs1 As List(Of DataRow) = DataTables("初三鹤立考点").Select("paixu % 2 = 0","成绩 desc")
Dim drs2 As List(Of DataRow) = DataTables("初三鹤立考点").Select("paixu % 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 = "排序"
请问我想在这个命令（Dim drs1 As List(Of DataRow) = DataTables("初三鹤立考点").Select("paixu % 2 = 0","成绩 desc")）上加一上序号升序，请问如何实现？
Dim drs1 As List(Of DataRow) = DataTables("初三鹤立考点").Select("paixu % 2 = 0","序号（升序）and 成绩 desc") 是这样吗？
加好友 
发短信
Post By：2021/3/12 14:16:00 [显示全部帖子]
