Discussion :

[BernardBouree]

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

[wallace1]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[BernardBouree]

Bonsoir

Merci!

Bernard

[Invité]

Bonjour,
Petit variante!

Code classe Province :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[clementmarcotte]

Bonjour

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.