以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  addtable 表格功能中的首列如何自动变宽?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148199)

--  作者:lanbor
--  发布时间:2020/4/2 9:31:00
--  addtable 表格功能中的首列如何自动变宽?
在使用 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编辑过]

--  作者:有点蓝
--  发布时间:2020/4/2 10:36:00
--  
去掉.Colwidth="12px",都自己限制了还有啥好说的