Discussion :

[patrickvier]

Bonjour,
j'ai u petit problème. Je souhaite assigner à une collection (class) des valeurs.
Ma class (simple) :

Code :

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

1
2
3
Public Class Tdata
    Public RegionId As String
End Class

J'ai commencé par :

Code :

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

1
2
3
4
5
6
7
8
    <WebMethod()> _
    Public Function Resultats() As Tdata()
        Dim emps As Tdata() = New Tdata() _
                                  {New Tdata() With _
                                   {.RegionId = "region_1"}, _
                                   New Tdata() With _
                                   {.RegionId = "region_2"}}
        Return emps

Le code ci-dessus fonctionne et me renvoi bien ce que je soihaite.
Mais avec une simple boucle for/next, cela ne fonctionne plus, il me renvoie que la valeur du dernier passage dans la boucle :

Code :

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

1
2
3
4
5
6
7
    <WebMethod()> _
    Public Function Resultats() As Tdata()
        Dim emps As Tdata() = Nothing
        For x = 1 To 2
            emps = New Tdata() {New Tdata() With {.RegionId = "region_" & CStr(x)}}
        Next
        Return emps

là, je suis un peu perdu.
Avez-vous une idée pour qu'à la sortie de la bouccle je puisse faire un "Return" avec l'ensemble de la collection TData().
Merci
Patrick