Array of Collections

[Dreiding]

I'm trying to creat an array of collection without success.

I have a Class called "MyClass"
In the control module I use the following commands:
Dim myCollections() as Collection

Redim myCollections(7) 'assume I have 7 collections to populate

As I loop through the data rows, I populate the class "MyClass"
and them based on the content of a field(0-6), add it to the appropriate
collection(i).

'here's how I add the class to the collection
Call myCollection(i).add(Item:=myClass)

For the first data row (i=0), the myCollection(0).item(1) is correct

My problen is when the second data row is read with a different index (i=1)
I end up with myCollection(0).item(1) being updated as myCollection(1).add is
executed.

Why would myCollection(0) be changed when I add to myCollection(1)?

Thanks,
- Pat

 

[IanKR]

I'm trying to creat an array of collection without success.

I have a Class called "MyClass"
In the control module I use the following commands:
Dim myCollections() as Collection

Redim myCollections(7) 'assume I have 7 collections to populate

Redim myCollections(1 to 7)

As I loop through the data rows, I populate the class "MyClass"
and them based on the content of a field(0-6), add it to the appropriate
collection(i).

'here's how I add the class to the collection
Call myCollection(i).add(Item:=myClass)

For the first data row (i=0), the myCollection(0).item(1) is correct

My problen is when the second data row is read with a different index
(i=1)
I end up with myCollection(0).item(1) being updated as myCollection(1).add
is
executed.

Why would myCollection(0) be changed when I add to myCollection(1)?

Watch for typos - is it myCollection or myCollections?