VBA集合:可以获取集合属性,但不能循环访问它。错误:'Object is no longer valid'



我能够加载具有值的集合:

coll.Add rsSql.Fields(0)

但当我尝试访问这些值时,我会得到错误:"对象不再有效">

我可以获得集合属性,例如.Count:

MsgBox coll.Count 'Outputs correctly

但当我试图循环浏览集合时,使用以下任一选项:

Dim i
For Each i In coll
MsgBox i
Next i
''or
Dim i As Integer
For i = 1 To coll.Count
MsgBox coll(i)
Next i

我得到上面的错误。

我甚至无法获得该项目的直接参考。相同错误:

MsgBox coll(1)

SOLVED:在将值添加到集合之前,将其强制转换为字符串。

最新更新