我能够加载具有值的集合:
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:在将值添加到集合之前,将其强制转换为字符串。