在使用 Addtable 表格功能时
With wb.Add Table("form1","Table1")
.PageNumber = page '设置页码
'.MergeCols = 2 '合并左边2列
.Colwidth="12px"
.Highlight= 1
.Alternate = 2 '每2行显示一个不同背景颜色的行
.head.AddRow(nms1)
For Each dr As Row In Tables("tjb2").Rows
With .body.addrow(dr("客户"))
'----这第一列的客户始终只能一行显示3个字符,就自动换行了,在显示器上放大也是如此,后面的2列会自动放大宽度。
.addcell(For mat(dr("rate_rmb_1"),"#,###.00"),"class='alignC'")
.addcell(For mat(dr("rate_rmb_1vp"),"P"),"class='alignC'")
'.addcell(Fo rmat(dr("sales_jr_2"),"#,###.00"),"class='alignC'")
'.addcell(For mat(dr("sales_jr_2vp"),"P"),"class='alignC'")
End With
Next
End With
[此贴子已经被作者于2020/4/2 9:33:39编辑过]