打算实现：

一、有“客户”、“主合同”两张表，数据源“SQL2008”。

二、根据“客户”表中“停用”逻辑列，在分页加载时将已停用客户放在最后边显示，其他按照客户编号顺序排序；

三、根据“主合同”表中“已终止”逻辑列，在分页加载时将已终止合同放在最后边显示，其他按照合同编号顺序排序；

自己编的分页加载代码无法对排序执行，请老师指正一下，谢谢！

Dim kh As Table = Tables("客户")
Dim tbl As Table = Tables("主合同")
Select Case e.Link.Name
    Case "在册客户: "
        kh.DataTable.LoadFilter = "客户名称 <> \'\'"
        kh.DataTable.LoadOrder = "停用"
        kh.DataTable.loadPage = 0
        kh.DataTable.load
        MainTable = Tables("客户")\'在此加入相应的代码
        Forms("客户主窗口").Open()
        Functions.Execute("客户窗口显示页面")  
    Case "全部合同: "
        tbl.DataTable.LoadFilter = "合同编号 <> \'\'"
        tbl.DataTable.LoadOrder = "已终止"
        tbl.DataTable.loadPage = 0
        tbl.DataTable.load
        MainTable = Tables("主合同")\'在此加入相应的代码
        Forms("合同台账窗口").Open()
        Functions.Execute("合同窗口显示页码")
End Select

 你这种，需要用到sqlLoad进行分页了，参考

http://www.foxtable.com/webhelp/scr/2721.htm