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