以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  For Each 排序 求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175678)
--  作者：yifan3429
--  发布时间：2022/3/15 11:50:00
--  For Each 排序 求助
Dim e As RequestEventArgs = args(0)
Dim wb1 As New WeUI \'定义一个基于weui框架的网页生成器
wb1.AppendHTML("<link rel=\'stylesheet\' href=\'./weui/exweui.css\'/>",True)
Dim cnt As Integer
Tables("订单").Sort = "客户,日期 DESC"
For Each dr As DataRow In DataTables("客户_客服备忘录").DataRows
    cnt = cnt + 1
    
    With ExWeUI.WebUI.AddStepGroup("","step1","",True)
        With .AddStep("st01",cnt,dr("时间"))
            .IsCurrent = True
            .color = ExWeUI.ExWeuiColor.default
            .Description = dr("沟通内容")
            
        End With
        wb1.InsertHTML(.BuildHtml)
    End With
    
Next
e.WriteString(wb1.Build) \'生成网页

怎么根据时间 dr("时间") 进行排序
--  作者：有点蓝
--  发布时间：2022/3/15 12:06:00
--  
For Each dr As DataRow In DataTables("客户_客服备忘录").select("","时间")