http://www.foxtable.com/mobilehelp/topics/0064.htm
Select Case e.Path
Case "table.htm"
Dim wb As New WeUI
With wb.AddTable("","Table1")
.head.Addrow().addcell("我的标题,"colspan='5'")
.head.AddRow("部门","姓名","年龄","电话","地址")
.body.AddRow("技术部","张三","36","110","中国北京")
.body.AddRow("技术部","李四","38","110","中国上海")
End With
e.WriteString(wb.Build)
End Select