matel | Bonjour,
Jutilise un dictionnaire pour stocker des datas mais la particularite cest que je sotcke une instance car jai 6 datas a sauver dans mon dico.
Mais le probleme vous vous doutez cest quand je vais lire le dictionnaire je recupere que la derniere instance stocke et non toutes mes donnees!
Auriez vous une solution ?
Merci
Code :
- If myData.Exists(name) Then
- Else
- myObject.date_report = rSQL(1)
- myObject.book = rSQL(2)
- myObject.instrument = rSQL(3)
- myObject.model = rSQL(4)
- myObject.eventdate = rSQL(5)
- myObject.typeofevent = rSQL(6)
- myObject.expiration = rSQL(7)
- myObject.vide = rSQL(8)
- myObject.underlying = rSQL(9)
- myObject.amount = rSQL(10)
- myData.Add name, myObject
- End If
- For Each Items In myData
- Cells(i, 1) = myData(Items).date_report
- Cells(i, 2) = myData(Items).book
- Cells(i, 3) = myData(Items).instrument
- Cells(i, 4) = myData(Items).model
- Cells(i, 5) = myData(Items).eventdate
- Cells(i, 6) = myData(Items).typeofevent
- Cells(i, 7) = myData(Items).expiration
- Cells(i, 8) = myData(Items).vide
- Cells(i, 9) = myData(Items).underlying
- Cells(i, 10) = myData(Items).amount
- i = i + 1
- Next
|
Message édité par matel le 23-01-2008 à 19:47:37
|
