你需要这个?
Select Case e.Path
Case "test.htm", ""
Dim wb As new WeUI
With wb.AddTable("","Table1")
.Attribute= "border='2'"
.RowHead = 1
.ColWidth = "12px,120px,100px,80px,120px" '设置列宽
.Highlight =1
.Alternate = 2 '每两行显示一个不同背景颜色的行
.CreateFromDataTable(DataTables("表A"),True)
With .Body.AddRow()
.Attribute = "style='background-color:#E4ECF7'"
.AddCell(" 合 计 ","colspan='4'")
.AddCells(12345,"")
End With
End With
e.WriteString(wb.Build)
End Select