Bonjour,
Je souhaite alimenter un liste contenant la class suivante :
Pour ce faire, j'ai redigé 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
17
18
19
20 Public Class ItemRequisition Public nomProprio As String Public civiliteProprio As String Public adresse1Proprio As String Public adresse2Proprio As String Public codePostalProprio As String Public villeProprio As String Public paysProprio As String Public nBon As Integer Public dateBon As Date Public dateEnlevement As Date Public vehiculeAbsent As Boolean Public Immatricule As String Public NomModeleVehicule As String Public GenreVehicule As String Public MarqueVehicule As String Public nomLieuStation As String Public nomRequerant As String End Class
J'obtiens bien une liste contenant le nombre de class que je souhaite recuperer. Mais les elements de de la liste sont tous identique au dernier ajouté. Au debugage les elements sont bien ajouté mais à chaque nouvel ajout, leur contenu est remplacé par le contenu de l'élèment ajouté.
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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50 Dim listeRequisitions As New List(Of ItemRequisition) Dim itemRequisition As New ItemRequisition Dim row As GridViewRow Dim lblgv As Label For Each row In gvRecherche.Rows If row.RowType = DataControlRowType.DataRow Then With itemRequisition lblgv = row.FindControl("lblDateBon") .dateBon = lblgv.Text lblgv = row.FindControl("lblEnlevement") If Len(lblgv.Text) > 0 Then .dateEnlevement = lblgv.Text Else .dateEnlevement = Nothing End If lblgv = row.FindControl("lblImatriculation") .Immatricule = lblgv.Text lblgv = row.FindControl("lblGenre") .GenreVehicule = lblgv.Text lblgv = row.FindControl("lblMarque") .MarqueVehicule = lblgv.Text lblgv = row.FindControl("lblModele") .NomModeleVehicule = lblgv.Text lblgv = row.FindControl("lblCivilite") .civiliteProprio = lblgv.Text lblgv = row.FindControl("lblNomPro") .nomProprio = lblgv.Text lblgv = row.FindControl("lblAdresse1") .adresse1Proprio = lblgv.Text lblgv = row.FindControl("lblAdresse2") .adresse2Proprio = lblgv.Text lblgv = row.FindControl("lblCp") .codePostalProprio = lblgv.Text lblgv = row.FindControl("lblVille") .villeProprio = lblgv.Text lblgv = row.FindControl("lblPays") .paysProprio = lblgv.Text lblgv = row.FindControl("lblRequerant") .nomRequerant = lblgv.Text lblgv = row.FindControl("lblLieu") .nomLieuStation = lblgv.Text lblgv = row.FindControl("lblVehiculeAbsent") .vehiculeAbsent = lblgv.Visible End With listeRequisitions.Add(itemRequisition) End If Next
J'espere avoir été claire dans mes explications.
Dans l'attente de votre aide,
Bonne journée
Partager