Boucle for each sur variable d'une procédure
Bonjour à vous,
Après plusieurs recherche sur la toile et n'ayans trouvé aucun résultat, je me penche vers vous :roll:
Voici pour commencer un exemple de code de façon à imager ma demande :
Code:
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:
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" :D
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
