参考:
Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
wb.AppendHTML("<style>.mark{display:none;}</style>", True) '添加样式
With wb.AddTable("","Table1")
.head.AddRow("部门","姓名","年龄","电话","地址")
For i As Integer = 1 To 5
With .body.AddRow()
.AddCell("技术部")
.AddCell("李四")
.AddCells("38","110")
.AddCell("中国上海")
.AddCell(i,"class='mark'")
End With
Next
End With
e.WriteString(wb.Build)
End Select