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("时间") 进行排序