Bonjour à vous,

Après plusieurs recherche sur la toile et n'ayans trouvé aucun résultat, je me penche vers vous


Voici pour commencer un exemple de code de façon à imager ma demande :

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
Public Shared Sub DLTableTemp()
 
Dim dt1 As DatabaseConnector.DataTableRead
Dim dt2 As DatabaseConnector.DataTableRead
Dim dt3 As DatabaseConnector.DataTableRead
Dim dt4 As DatabaseConnector.DataTableRead
Dim dt5 As DatabaseConnector.DataTableRead
 
 CreerXML(dt1, NameOf(dt1))
 CreerXML(dt2, NameOf(dt2))
 CreerXML(dt3, NameOf(dt3))
 CreerXML(dt4, NameOf(dt4))
 CreerXML(dt5, NameOf(dt5))
 
End Sub
Dans l'optique d'alléger mon code je souhaiterais effectuer une boucle sur mes variables déclarées dans ma procédure
Est-il possible d'effectuer une boucle for each ?

Je pensais à un truck dans ce style :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim dt1 As DatabaseConnector.DataTableRead
Dim dt2 As DatabaseConnector.DataTableRead
Dim dt3 As DatabaseConnector.DataTableRead
Dim dt4 As DatabaseConnector.DataTableRead
Dim dt5 As DatabaseConnector.DataTableRead
 
for each dt as DatabaseConnector.DataTableRead in 'que mettre ici
 
CreerXML(dt, NameOf(dt))
 
next
J'ai beau me creuser la tête je ne parviens pas à trouver le petit boue de code qui va suivre "IN"

Ps : j'ai essayé d'utiliser un List(of.. mais je rencontre un problème et cella n'allège pas vraiment mon code.

Merci pour vos prochaines réponses