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

Question

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

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

Answer 1

你可以尝试

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