先排序,然后按照排序更新_sortkey值,最后取消排序,比如:
DataTables("订单").LoadFilter = "[日期] = #" & Date.Today & "#"
DataTables("订单").Load
Tables("订单").sort = "第一列"
dim r as row = Tables("订单").rows(0)
Dim idx As Decimal =r("_sortkey")
for i as integer = 0 to Tables("订单").rows.count - 1
Tables("订单").rows(i)("_sortkey") = idx + i
next
Tables("订单").sort = ""
[此贴子已经被作者于2021/8/9 20:11:54编辑过]