添加一个辅组列“排序”
Dim drs1 As List(Of DataRow) = DataTables("表A").Select("序号 % 2 = 0","成绩 desc")
Dim drs2 As List(Of DataRow) = DataTables("表A").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("表A").sort = "排序"
加好友 
发短信
Post By：2020/10/15 5:40:00 [只看该作者]
此主题相关图片如下：原表.jpg
