以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于CheckedListBox  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=132242)
--  作者：裴保民
--  发布时间：2019/3/17 23:31:00
--  关于CheckedListBox
怎么设置CheckedListBox控件只加载没有隐藏的列呢？隐藏的列不显示在CheckedListBox控件中
--  作者：有点甜
--  发布时间：2019/3/18 9:11:00
--  

循环每一个列，判断一下，如

 

Dim str As String = ""
For Each c As Col In Tables("表A").Cols
    If c.Visible Then
        str &= c.name & "|"
    End If
Next
msgbox(str)