dictionaire & classe VBA

dictionaire & classe VBA - VB/VBA/VBS - Programmation

Marsh Posté le 23-01-2008 à 18:53:26    

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 :
  1. If myData.Exists(name) Then
  2. Else
  3. myObject.date_report = rSQL(1)
  4. myObject.book = rSQL(2)
  5. myObject.instrument = rSQL(3)
  6. myObject.model = rSQL(4)
  7. myObject.eventdate = rSQL(5)
  8. myObject.typeofevent = rSQL(6)
  9. myObject.expiration = rSQL(7)
  10. myObject.vide = rSQL(8)
  11. myObject.underlying = rSQL(9)
  12. myObject.amount = rSQL(10)
  14. myData.Add name, myObject
  15. End If
  18. For Each Items In myData
  20. Cells(i, 1) = myData(Items).date_report
  21. Cells(i, 2) = myData(Items).book
  22. Cells(i, 3) = myData(Items).instrument
  23. Cells(i, 4) = myData(Items).model
  24. Cells(i, 5) = myData(Items).eventdate
  25. Cells(i, 6) = myData(Items).typeofevent
  26. Cells(i, 7) = myData(Items).expiration
  27. Cells(i, 8) = myData(Items).vide
  28. Cells(i, 9) = myData(Items).underlying
  29. Cells(i, 10) = myData(Items).amount
  30. i = i + 1
  31. Next


Message édité par matel le 23-01-2008 à 19:47:37
Reply

Marsh Posté le 23-01-2008 à 18:53:26   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed