未按日期倒序，进行数据的完全加载 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师下面代码，我想rs_outsideout表进行按outdate倒序加载。但实际执行是outdate=今天有100条数据，第一页就加载了10条今天的数据。请问问题在哪？

MainTable = Tables("rs_outsideout")

Dim dt As Date = Date.Today.AddDays( - 900)

Dim dr As DataRow = DataTables("rs_userinfo").find("sname = '" & rsuser & "'") '找到当前登录者所在的行

Dim filter As String = "1=2"

If dr("position") = "管理者" Then

Dim drs = DataTables("rs_departinfo").Select("departno like '" & dr("departno") & "%'")

For Each cdr As DataRow In drs

Filter &= " or outdepart = '" & cdr("depart") & "'And outdate >= '" & dt & "'"

Else If dr("position") = "职员" Then

Filter = "outdepart = '" & dr("indepart") & "'And outdate >= '" & dt & "'"

End If

DataTables("rs_outsideout").LoadTop = "1000"

DataTables("rs_outsideout").LoadOrder = "_Identify"

Tables("rs_outsideout").OpenLoadTree("outdepart|rstype|outdate YM|proname", 200, 1000, True, Filter)

Tables("rs_outsideout").Sort = "outdate DESC"

Forms("其他出库汇总").Open()

主题：未按日期倒序，进行数据的完全加载