主题：分码加载页数没有自动更新

……

DataTables("S征地记录").save

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