请教分页加载排序的问题？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我有一个进货单现在我用以下代码实现分页加载了并按单据号排序，但是结果排序没有按照单据号来了，不知道什么原因？代码如下

Dim Filter As String = "1=1"

With e.Form.Controls("khname")

If .Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "供应商名称 = '" & .Value & "'"

End If

End With

With e.Form.Controls("ckname")

If .Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "仓库 = '" & .Value & "'"

End If

End With

With e.Form.Controls("StartDate")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "日期 >='" & .Value & "'"

End If

End With

With e.Form.Controls("EndDate")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "日期 <='" & .Value & "'"

End If

End With

If e.Form.Controls("rdo1").Checked = True

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "单据状态='已审核'"

End If

If e.Form.Controls("rdo2").Checked = True

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "单据状态<>'已审核' or 单据状态 is null"

End If

With DataTables("进货单")

.LoadFilter = ""

.LoadFilter = filter

.LoadPage = 0 '加载第一页

.LoadOver="_Identify"

.LoadOrder = "单据号"

.LoadTop =60 '每页60行

.Load()

e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages

End With

Tables("进货单").sort="单据号"

Dim hjsl,hjje As Double

hjsl=DataTables("进货单").sqlcompute("sum(数量)",filter)

hjje=DataTables("进货单").sqlcompute("sum(金额)",filter)

'hjsl=DataTables("销售单").sqlcompute("count([_Identify])",filter)

e.Form.Controls("NumericComboBox1").value=hjsl

e.Form.Controls("NumericComboBox2").value=hjje

If Tables("进货单").rows.count=0

Tables("进货单").GrandTotal = False

Else

Tables("进货单").Cols("金额").GrandTotal = True

Tables("进货单").GrandTotal = True '显示合计模式

End If

主题：请教分页加载 排序的问题？

主题：请教分页加载排序的问题？