Bonjour

J'ai les définitions suivantes:

Public Class Pays
Property sNom As String
Property sCode As String
Property oProvinces As New SortedList(Of String, Province)
Property oRégions As New SortedList(Of String, Région)
End Class
Public Class Région
Property sNom As String
Property oDépartements As SortedList(Of String, Département)
End Class
Public Class Département
Public Property sNom() As String
Public Property sCodeDépartement() As String
End Class
Public Class Province
Property sNom As String
Property sCode As String
End Class

puis le code suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim pro As New Province
            Dim Canada As New Pays
            pro.sNom = "Alberta"
            pro.sCode = "AB"
            Canada.oProvinces.Add(pro.sCode, pro)
            pro.sNom = "Colombie-Britanique"
            pro.sCode = "BC"
            Canada.oProvinces.Add(pro.sCode, pro)
            pro.sNom = "Ïle-du-Prince-Edouard"
            pro.sCode = "PE"
            Canada.oProvinces.Add(pro.sCode, pro)
            pro.sNom = "Manitoba"
            pro.sCode = "MB"
            Canada.oProvinces.Add(pro.sCode, pro)
            pro.sNom = "Nouveau-Brunswick"
            pro.sCode = "NB"
Quand je debug ces lignes ou j'ajoute les différentes provinces, elles sont bien ajoutées mais les valeurs sNom et sCode sont toutes modifiées à chaque ajout pour prendre la valeur de la dernière entrée.
Je me retrouve à la fin avec une liste coorectement indéxée mais dont toutes les valeurs sont les mêmes.

Merci pour votre aide.

Bernard