请教蓝老师关于滚动加载的排序问题，只能用[_Identify]排序吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如何改成按日期倒序呢？

Dim wb As New weui
Select Case e.Path
Case "infinitescroll"
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)
wb.AppendHTML("<script src='./weui/exweui.js' ></script>",True)
Dim drs As List(of DataRow) = DataTables("订单2").SQLSelect("",8,"[_Identify]")
With ExWeUI.WebUI.AddExInfiniteScroll("pr01","testcallback",0,8) '默认显示8行，当行数少不需要滚动的时候是不会触发滚动事件的
Dim wb2 As New weui '用于生成默认列表
With wb2.AddPanelGroup("","pg1","")
For Each dr As DataRow In drs
.Add("pn1" & dr("_Identify"), "日期: " & Format(dr("日期"),"yy年MM月dd日") & " 金额: " & dr("金额"),"产品: " & dr("产品") & ", 客户: " & dr("客户") & ", 雇员: " & dr("雇员"),"./images/button.png")
Next
End With
.Content = wb2.BuildHtml("pg1") '设置默认显示的列表
wb.InsertHTML(.BuildHtml)
End With
wb.AppendHTML("<script>initExWeUI();</script>")
e.WriteString(wb.Build)
Case "testcallback"
Dim json As String = e.PlainText
Dim jo2 As JObject = JObject.parse(json)
Dim drs As List(of DataRow) = DataTables("订单2").SQLSelect("[_Identify] > " & jo2("max").ToString , 5 ,"[_Identify]")
Dim jo As new JObject
jo("page") = cint(jo2("page")) + 1 '模拟页数+1
jo("max") = cstr(drs(drs.Count - 1)("_Identify")) '模拟返回最大编号
If drs.count < 5 Then '如果行数小于5，说明没有更多数据了
jo("done") = True
Else
With wb.AddPanelGroup("","pg1" & jo("page").ToString,"")
For Each dr As DataRow In drs
.Add("pn1" & dr("_Identify"), "日期: " & Format(dr("日期"),"yy年MM月dd日") & " 金额: " & dr("金额"),"产品: " & dr("产品") & ", 客户: " & dr("客户") & ", 雇员: " & dr("雇员"),"./images/button.png")
Next
End With
jo("html") = wb.BuildHtml("pg1" & jo("page").ToString)
End If
System.Threading.Thread.Sleep(500) '模拟延时的加载
e.WriteString(jo.ToString)
End Select

主题：请教蓝老师关于滚动加载的排序问题，只能用[_Identify]排序吗？