0

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

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

1 回答 1

0

你可以试试

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
于 2013-10-03T07:23:45.517 回答