Dim wb
As New WeUI With wb.AddTable("","Table1") Dim nms() AsString = {"产品","客户","数量","单价","日期"} .Head.AddRow(nms) ForEach r AsDataRowInDataTables("订单").DataRows With .Body.AddRow(r("产品"),r("客户"),r("数量")) .Primarykey = r("_Identify")
'设置主键 .AddCell(Format(r("单价"),"#0.00")) .AddCell(Format(r("日期"),"MM月dd日")) EndWith Next EndWith