我有两个集合,第二个集合在第一个集合中。但是当我尝试访问第二个集合的元素时,我收到Type mismatch
错误。
Sub testColls()
Dim coll1 As Collection
Dim coll2 As Collection
Set coll1 = New Collection
Set coll2 = New Collection
coll2.Add ("dog")
coll1.Add ("cat")
coll1.Add coll2
Dim temp As String
temp = coll1(1)(1)
MsgBox (temp)
End Sub
为什么会出现这个错误? coll1(1)
获取第二个集合,coll
(1)(1)`应该给第二个集合的第一个元素。
答案 0 :(得分:3)
而不是
temp = coll1(1)(1)
使用
temp = coll1(2)(1)
使用coll1(2)(1)
会dog
而coll1(1)
将会cat
。
为了提高可读性,您可以coll1.Item(2).Item(1)
使用coll1(2)(1)
,coll1.Item(1)
使用coll1(1)