参考代码
Select Case e.Path
Case "test.htm",""
Dim wb As New WeUI
Dim t = wb.AddTable("","Table1")
Dim r1 = t.Head.AddRow
Dim r2 = t.Head.AddRow
For Each c As Col In Tables("表A").cols
Dim ary() As String = c.Caption.Split("_")
If ary.length = 1 Then
r1.addcell(ary(0))
r2.addcell(ary(0))
Else
r1.addcell(ary(0))
r2.addcell(ary(1))
End If
Next
For Each r As Row In Tables("表A").rows
Dim nr = t.Body.AddRow()
nr.AddCell("<a href='http://www.baidu.com'>" & r("第二列") & "</a>")
For Each c As Col In r.Table.cols
nr.AddCell(r(c.name))
Next
Next
e.WriteString(wb.Build)
End Select