以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  某些列名赋值给数组  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186090)
--  作者：蓝蚂蚁
--  发布时间：2023/4/6 8:12:00
--  某些列名赋值给数组
Dim dx As Integer=0
Dim s1() As String
For Each c As Col In Tables("表A").cols
    If c.Name Like "基数_*" Then
        s1(dx)=c.name
        dx=dx+1
    End If
Next
这段代码为什么报错“未将对象引用设置到对象的实例。”，但如果指定数组s1具体有几个数组就行，但表A以"基数_"开头为列名的列不固定，所以数组s1()也不好固定是多少个，请问老师，像这个怎么解决？
--  作者：y2287958
--  发布时间：2023/4/6 8:23:00
--  
用集合
--  作者：蓝蚂蚁
--  发布时间：2023/4/6 8:27:00
--  
多谢，按你的提示解决了。