- Код: Выделить всё
Set UGCollection = New Collection
Set UGKnotenNamen = New clsUGKnotenNamen
Do While Not RSAllgemein.EOF
UGKnotenNamen.UntegruppeName = RSAllgemein(3) & " - " & RSAllgemein(5)
UGKnotenNamen.UnterGruppenKnotenKey = RSAllgemein(1) & "." & RSAllgemein(3) & "." & RSAllgemein(2) & "." & RSAllgemein(5)
UGCollection.Add UGKnotenNamen
RSAllgemein.MoveNext
Loop
вобщем проблемма такова, в выше приведённом коллекция получает данные из класса, но, когда извлекаю данные иоз коллекции ,получаю один и тот же результат,а именно данные которые были введенны в самом конце. В чём проблемма?
ЗЫ: именна переменных и объктов немецкие, поэтому не ломайте себе голову.
