以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  未按日期倒序，进行数据的完全加载  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191425)

--  作者：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 & "\'"     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()

--  作者：有点蓝 --  发布时间：2024/4/16 10:55:00 --   DataTables("rs_outsideout").LoadOrder = "outdate DESC"

--  作者：weibu --  发布时间：2024/4/16 11:13:00 --   修改后还是一样

--  作者：有点蓝 --  发布时间：2024/4/16 11:15:00 --   请上传实例测试

--  作者：weibu --  发布时间：2024/4/16 11:16:00 --   老师我想修改这个代码的逻辑，就是单击按钮，显示加载最近15天的数据，倒序排列。再就是Tables("rs_outsideout").OpenLoadTree("outdepart|rstype|outdate YM|proname", 200, 1000, True, Filter)生成加载树 点击加载树按加载数据的逻辑加载数据

--  作者：cd_tdh --  发布时间：2024/4/16 12:17:00 --   分页加载时，同一个排序列有多条数据，分页加载后，页面显示的条数大于分页条数，数据是显示不全的。