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

1楼

weibu 发表于：2024/4/16 10:47:00

老师下面代码，我想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()

2楼

有点蓝 发表于：2024/4/16 10:55:00

DataTables("rs_outsideout").LoadOrder = "outdate DESC"

3楼

weibu 发表于：2024/4/16 11:13:00

修改后还是一样

4楼

有点蓝 发表于：2024/4/16 11:15:00

请上传实例测试

5楼

weibu 发表于：2024/4/16 11:16:00

老师我想修改这个代码的逻辑，就是单击按钮，显示加载最近15天的数据，倒序排列。再就是Tables("rs_outsideout").OpenLoadTree("outdepart|rstype|outdate YM|proname", 200, 1000, True, Filter)生成加载树

点击加载树按加载数据的逻辑加载数据

6楼

cd_tdh 发表于：2024/4/16 12:17:00

分页加载时，同一个排序列有多条数据，分页加载后，页面显示的条数大于分页条数，数据是显示不全的。

共6 条记录, 每页显示 10 条, 页签: [1]