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