Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)
With ExWeUI.WebUI.AddStepGroup("","step1","",,2)
For Each dr As DataRow In DataTables("表A").DataRows
With .AddStep("st01","",dr ("时间"))
.Description = dr ("内容")
End With
Next
wb.InsertHTML(.BuildHtml)
End With