Problème avec une SortedList(Of)

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:

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

Bonjour,

Il faut que tu instancies autant de provinces qu'il en existe :

- Alberta
- Colombie-Britanique
- Ïle-du-Prince-Edouard
- Monitoba
......
........etc

Donc comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
            Dim Canada As New Pays
            ' Nouvelle instance pour la province Alberta
            Dim AlbertaPro As New Province 
            AlbertaPro.sNom = "Alberta"
            AlbertaPro.sCode = "AB"
            Canada.oProvinces.Add(pro.sCode, AlbertaPro)
            ' Nouvelle instance pour la province Colombie-Britanique
            Dim ColombieBriPro As New Province 
            ColombieBriPro.sNom = "Colombie-Britanique"
            ColombieBriPro.sCode = "BC"
            Canada.oProvinces.Add(pro.sCode, ColombieBriPro)
            ' etc ......

A+

Bonjour,
Pourquoi tu ne chaîne pas tes collections?

Code:

1
2
3
4
5
6
7
8
9
10
 
If LesPays("Canada").ToutesProvince.exists("BC" )=false then
LesPays("Canada").ToutesProvince.add("BC",New Province )
End if
LesPays("Canada").ToutesProvince("BC").sNom = "Colombie-Britanique"
 
With LesPays("France").ToutesProvince
If .exists("IF") =false then .add("IF",New Province ) 'IDF
.items("IF").sNom ="Ils de France"
End With

Bonsoir

Merci!

Bernard

Bonjour,
Petit variante!
Code:

1 2 3 4 5 6 Public classe Province Private sNom as string ="" Private sCode As string="" Public sub New(Nom as string ,Code as string) SNom=Nom: SCode=Code
Code:

LesPays("Canada").ToutesProvince.add("BC",New Province("Colombie-Britanique","BC"))

Bonjour

Citation:

Envoyé par wallace1

Bonjour,

Il faut que tu instancies autant de provinces qu'il en existe :

10 provinces.

Mais pour être complet, il doit aussi ajouter 3 territoires. ;)