获取列数据并存储到数组VB6中

如何循环列字段并插入到数组

 Do While rstRGRPT1.RecordCount
                sCol = rstRGRPT1!FCOL
                'oAList.Add "sCol"
                rstRGRPT1.MoveNext
            Loop

你可以试试

Dim numbers(50) As Integer
Dim i as integer
i=0
     Do While not rstRGRPT1.EOF
                    numbers(i)=rstRGRPT1.fields(0)
                    rstRGRPT1.MoveNext
                    i=i+1
                Loop

---

谢谢你的回复，在我得到字段后，如何插入数组？重读保存sFieldArray（UBound（sFieldArray）+1）sFieldArray（sFieldArray（i））=rstRGRPT1！RPT_代码我不知道该怎么做..因为我想将数据导出到excel one感谢您的帮助！“循环列字段”？您的意思是“遍历记录集的字段对象并将它们复制到数组中”？