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

[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 :

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

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

[patrickvier]

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 :

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
    <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 :

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

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.