老师下面代码，我想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 & "'"
Next
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()
加好友 
发短信
Post By：2024/4/16 10:47:00 [只看该作者]
