[求助]CreateFromDataTable生成表格式化数据 Post By:2021/12/23 14:33:00 [只看该作者]
With wb.AddTable("","Table1") .RowHead = 1 .CreateFromDataTable(DataTables("欠款余额"),True,"应收余额 > 0","客户名称","客户名称","应收余额") Dim Sum As Double = DataTables("欠款余额").Compute("Sum(应收余额)","应收余额 > 0") .Foot.AddRow("","合计","" & Sum & "") .ColWidth = "10px,,,,60px" '设置列宽 .Highlight = 1 '高亮显示行功能 End With