Discussion :

[misscricri]

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 :

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

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

[Sankasssss]

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 :

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

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.

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

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

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

[Sankasssss]

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 :

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

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 :

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
 
 
' ... 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