主题：怎样实现后台数据重新排序

If User.Name = "开发者" Or User.Name = "管理员" Then

    DataTables("S迁纪录房屋").LoadFilter = filter

    DataTables("S迁纪录房屋").LoadOrder="协议书编号 Desc"

    DataTables("S迁纪录房屋").LoadTop= 5

    DataTables("S迁纪录房屋").Load

    Tables("S迁纪录房屋").sort="协议书编号"

Else

    DataTables("S迁纪录房屋").loadfilter = "(乡镇 = '" & User.Name & "' or 县 = '" & User.Name & "' or 项目名称 = '" & User.Name & "') and " & Filter

    DataTables("S迁纪录房屋").LoadOrder="协议书编号 Desc"

    DataTables("S迁纪录房屋").LoadTop= 5

    DataTables("S迁纪录房屋").Load

    Tables("S迁纪录房屋").sort="协议书编号"

End If

此主题相关图片如下：1.png

我的分页加载有两页，第1页协议书编号是1，2，7，4，5.第2页是6.

我想实现打开项目或切换用户时，第1页是1，2，4，5，6.第2页是7

这样方便在打开最后一页时就知道当前的编号到了多少