Work with a collection of collections(of objects)

See more:

collections

VB12

I am collecting PLC data for data logging and graphing. I am trying to make a collection of collections so as to easily add data points dynamically. I am struggling. Here is what is happening. I am creating two (new) collections named bigCol and dataCol. I .Add() 5 dataCol's to bigCol. Then I add one PlotData object to each one of the dataCol collections within bigCol collections. So I should have a collection of 5 dataCol's with one PlotData in each one, but I am getting too many items added. Here is my code:

Sub Main()
       Dim bigCol As New Collection()
       Dim dataCol As New Collection()
       Dim i As Integer

       'Create a bigCol collection full of dataCol collections
       'So it is a collection of collections
       For i = 0 To 4
           bigCol.Add(dataCol)
       Next

       'Add 1 plotData object to each of the dataCols in bigCol
       For Each item In bigCol
           dataCol.Add(New PlotData("name" & i.ToString))
           i += 1
       Next

       Console.WriteLine("bigCol.count = " & bigCol.Count)
       Dim e As PlotData
       For Each item In bigCol
           Console.WriteLine("bigCol Element")
           Console.WriteLine("dataCol.count = " & dataCol.Count)
           For Each e In dataCol
               Console.Write(" {0}  ", e.ToString())
               Console.Write(" {0}  ", e.X1)
               Console.Write(" {0}  ", e.Y1)
               Console.Write(" {0}  ", e.X2)
               Console.WriteLine(" {0}  ", e.Y2)
           Next e
       Next

       PressAnyKey()
   End Sub

PlotData is just a class with 2 string properties and 4 integer values.

Here is what I am getting from the console...

bigCol.count = 5
bigCol Element
dataCol.count = 5
name5 0 0 0 0
name6 0 0 0 0
name7 0 0 0 0
name8 0 0 0 0
name9 0 0 0 0
bigCol Element
dataCol.count = 5
name5 0 0 0 0
name6 0 0 0 0
name7 0 0 0 0
name8 0 0 0 0
name9 0 0 0 0
bigCol Element
dataCol.count = 5
name5 0 0 0 0
name6 0 0 0 0
name7 0 0 0 0
name8 0 0 0 0
name9 0 0 0 0
bigCol Element
dataCol.count = 5
name5 0 0 0 0
name6 0 0 0 0
name7 0 0 0 0
name8 0 0 0 0
name9 0 0 0 0
bigCol Element
dataCol.count = 5
name5 0 0 0 0
name6 0 0 0 0
name7 0 0 0 0
name8 0 0 0 0
name9 0 0 0 0

Please Press any key to continue!