以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表像素  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83216)
--  作者：Liangcai
--  发布时间：2016/4/3 19:04:00
--  表像素

Tables("订单").AutoSizeCols()

订单表是自动列宽，订单水平像素，也就是表宽，求代码？谢谢！

 

[此贴子已经被作者于2016/4/3 19:09:37编辑过]
--  作者：Liangcai
--  发布时间：2016/4/3 20:59:00
--  

是不是这样

Dim sum As Long
For Each dc As Col In Tables("订单").Cols
    sum = sum + dc.Width
Next
--  作者：大红袍
--  发布时间：2016/4/5 1:20:00
--  
Dim sum As Long = 25
For Each dc As Col In Tables("表A").Cols
    If dc.Visible = True
        sum = sum + iif(dc.Width=-1, 98, dc.width)
    End If
Next
msgbox(sum)