Assignation avec With

Version imprimable

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

Code:

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

J'ai commencé par :

Code:

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:

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

11/11/2015, 21h18
Sehnsucht
C'est normal à chaque tour de boucle tu remplace la valeur courante de emps par un nouveau tableau du coup celle d'avant est perdue (et ça n'a rien à voir avec l'utilisation de With)

Il te faut donc soit initialiser le tableau à la bonne taille avant la boucle et à chaque tour de celle-ci assigner à un indice de cet tableau la valeur correspondante :
Code:

1 2 3 4 5 Dim emps(1) As Tdata For x = 0 To emps.Length - 1 emps(x) = New Tdata() With {.RegionId = "region_" & CStr(x+1)} Next Return emps
Mais il serait probablement plus simple d'utiliser un List(Of Tdata) et d'ajouter (via sa méthode Add) un nouveau Tdata à chaque itération de boucle

Bonjour Sehnsucht,
Merci de ton info, j'avais déjà imaginé avec une List(Of), mais hier soir, mes idées n'étaient pas claires.
Ci-dessous le code complet avec une fonction qui renvoie une List(Of) dans la WebMethod, qui, elle renvoie cette liste (avec traitement d'une variable venant de la requete Web) :

Code:

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
    <WebMethod()> _
    Public Function Resultats(ByVal RegId As Integer) As List(Of TData)
        Return mList(RegId)
    End Function
 
    Private Function mList(ByVal RegId As Integer) As List(Of TData)
        Dim tdat As TData
        Dim ListTdata As New List(Of TData)
        Dim x As Integer
 
        For x = 1 To 2
            tdat = New TData With { _
                .RegionId = CStr(RegId) & " - region_" & CStr(x), _
                .Nom = "Patrick_ " & CStr(x) _
            }
            ListTdata.Add(tdat)
        Next
        Return ListTdata
    End Function
 
End Class
 
Public Class TData
    Public RegionId As String
    Public Nom As String
End Class

Voila le résultat (réponse du web service) :

Code:

1
2
3
4
5
6
7
8
9
10
11
<?xml version="1.0" encoding="utf-8"?>
<ArrayOfTData xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://Patrick.fr/">
  <TData>
    <RegionId>4 - region_1</RegionId>
    <Nom>Patrick_ 1</Nom>
  </TData>
  <TData>
    <RegionId>4 - region_2</RegionId>
    <Nom>Patrick_ 2</Nom>
  </TData>
</ArrayOfTData>

J'espère que ce code sera utile à d'autres "débutants" comme moi ;)
Patrick.