参考代码
Select Case e.Path
Case "test.htm", ""
Dim wb As New WeUI
With wb.AddTable("","Table1")
'按日期顺序列出客户CS01的订单,仅显示产品/数量/单价/日期/审核等五列
.CreateFromDataTable(DataTables("表A"))
End With
wb.InsertHTML("<script>table1.rows[0].cells[1].innerHTML='列1';table1.rows[0].cells[2].innerHTML='列2'</script>")
e.WriteString(wb.Build)
End Select