Optimisation d'une boucle for each

Bonjour !

J'ai 5 textbox pour lesquelles j'affiche le total de chacune de mes colnnes de mon datagridview.
J'aimerais savoir s'il est possible d'optimisser cette boucle for each. Au lieu de l'écrire 5 fois , j'aimerais l'écrire une fois
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 For Each r As DataRow In ds.Tables("TOTO").Rows Dim i As Integer = 0 Dim total As Single = 0 For i = 0 To dgWhse.RowCount - 1 total = total + dgWhse.Item(1, i).Value Next textbox.Text = total.ToString Next

Bonsoir,

Je ne comprend pas l'utilité de boucler sur ta table toto si vous n'utilisez pas la row dans le code (ligne n°1) :
Code:

1 2 3 4 5 6 7 8 9 10 11 For Each r As DataRow In ds.Tables("TOTO").Rows Dim i As Integer = 0 Dim total As Single = 0 For i = 0 To dgWhse.RowCount - 1 total = total + dgWhse.Item(1, i).Value Next textbox.Text = total.ToString Next
Sinon pour la deuxième boucle il vous suffit de faire un tableau d'integer pour recevoir le résultat de chacune des colonnes, de faire une seconde boucle énumerant les colonnes et de placer le résultat de la colonne x dans l'index x du tableau de résultat.

Vite comme ça, je te dirais de mettre ta boucle dans un sub qui prendrait le nom de ta colonne en paramètre.

Quelque chose du genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub FillColumn (ByVal strColName as String)
   For Each r As DataRow In ds.Tables(strColName).Rows
 
        Dim i As Integer = 0
        Dim total As Single = 0
 
        For i = 0 To dgWhse.RowCount - 1
                total = total + dgWhse.Item(1, i).Value       
        Next
        textbox.Text = total.ToString
 
   Next
End Sub

Citation:
Envoyé par roshy
Vite comme ça, je te dirais de mettre ta boucle dans un sub qui prendrait le nom de ta colonne en paramètre.

Quelque chose du genre :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub FillColumn (ByVal strColName as String) For Each r As DataRow In ds.Tables(strColName).Rows Dim i As Integer = 0 Dim total As Single = 0 For i = 0 To dgWhse.RowCount - 1 total = total + dgWhse.Item(1, i).Value Next textbox.Text = total.ToString Next End Sub
Oupppssss, spécifier le nom des colonnes la ou sa doit être une table ce n'est pas vraiment une bonne idée... (ds.Tables(strColName))
De plus, en supposant que le code précédent le textBox fonctionne, de cette manière on ne sait pas changer le textBox et le résultat sera écrasé à chaque passage

Faite attention en postant des codes que ça aie un minimum de sens aussi non ca peut dérouter le demandeur.

Code transformé pour correspondre à votre pensée :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 ' ... Dans l'appel du sub main TextBoxResultat1.Text = SumColumn(1) TextBoxResultat2.Text = SumColumn(2) TextBoxResultat3.Text = SumColumn(3) TextBoxResultat4.Text = SumColumn(4) TextBoxResultat5.Text = SumColumn(5) End Sub Private function SumColumn (ByVal ColonneIndex as integer) as Single Dim i As Integer = 0 Dim total As Single = 0 For i = 0 To dgWhse.RowCount - 1 total = total + dgWhse.Item(ColonneIndex , i).Value Next return total End Function