以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]获取一个表显示的列名和列宽  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=66960)
--  作者：kaiyu
--  发布时间：2015/4/16 16:20:00
--  [求助]获取一个表显示的列名和列宽

Dim lm As String
Dim widt As Integer
Dim ss As String
For Each cl As Col In Tables("订单表").Cols
lm = cl.name
widt = cl.Width
ss = ss & lm & "|" & widt & "|"
Next
output.show(ss)

这样子的话订单表那些隐藏的列都给显示出来了，就想那些隐藏的列不不出现在变量SS里，求助这代码如可改
--  作者：Bin
--  发布时间：2015/4/16 16:20:00
--  
Dim lm As String
Dim widt As Integer
Dim ss As String
For Each cl As Col In Tables("订单表").Cols
if cl.visible then
lm = cl.name
widt = cl.Width
ss = ss & lm & "|" & widt & "|"
end if
Next
output.show(ss)
--  作者：kaiyu
--  发布时间：2015/4/16 16:23:00
--  
谢谢
--  作者：Bin
--  发布时间：2015/4/16 16:29:00
--  
获取显示的列名列宽 狐表有自带方法 http://www.foxtable.com/help/topics/2496.htm