以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助：获取当前表所有显示列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76859)
--  作者：lake163
--  发布时间：2015/11/6 12:24:00
--  求助：获取当前表所有显示列
假如：表A显示的列有  第一列、第三列、第七列、第八列

定义一个数组：Dim nma() as  string

需要获取表A所有显示的列名称到数组中，即：
      nma = {"第一列","第三列","第七列","第八列"｝

目的：在将当前表的内容复制到其他表中时， 只复制选定的列。

请问代码如何写啊？
--  作者：大红袍
--  发布时间：2015/11/6 14:10:00
--  
Dim nma As new List(Of String)
For Each c As Col In Tables("表A").cols
    If c.Visible Then
        nma.add(c.Name)
    End If
Next
--  作者：lake163
--  发布时间：2015/11/6 18:05:00
--  
原来是要用集合，然后再转换成数组。
谢谢啦！
--  作者：荟美绘姿
--  发布时间：2015/11/7 22:04:00
--  
学习一下