参考代码
Dim wb As New WeUI With wb.AddTable("","Table1") '按日期顺序列出客户CS01的订单,仅显示产品/数量/单价/日期/审核等五列 .CreateFromDataTable(DataTables("表A"),False) End With wb.AppendHTML("<style>Table.fox_table {line-height:100px;font-size:15px}</style>") e.WriteString(wb.Build)