Discussion :

[akabis]

Bonjour,
Je ne suis pas développeur, mais dans le cadre d'un projet je dois faire une petite appli.
J'utilise l'ide visual studio et developpe en vb.net


Voila mon problème:
J'utilise une datagridview afin de récupérer des informations pour une DB.
Pour l'instant mes tests se limitent à afficher les données saisies.
Je souhaite récupérer les valeurs de champs tant que la valeur de la 1ere colonne n'est pas vide (il n'y a que 2 colonnes).

Voici mon code:
(toutes mes variables sont déclarées)

Code :

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

1
2
3
4
5
6
7
8
i = 0
Do
var1 = DataGridView1.Rows.Item(i).Cells.Item(0).Value
var2 = DataGridView1.Rows.Item(i).Cells.Item(1).Value
i = i + 1
MsgBox("colonne 1: " & var1)
MsgBox("colonne 2: " & var2)
Loop While DataGridView1.Rows.Item(i).Cells.Item(0).Value IsNot DBNull.Value

Ca fonctionne jusqu'à la derniere itération où là j'ai le message suivant sur la ligne:

Code :

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

Loop While DataGridView1.Rows.Item(i).Cells.Item(0).Value IsNot DBNull.Value

l'index était hors limite. Il ne doit pas être négatif ou inferieur à la taille de la collection. nom du parametre: index.

J'ai regardé sur MSDN, mais je n'ai pas compris leurs explications.

J'ai fait un autre test pour voir

Code :

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

1
2
3
4
5
6
7
8
i=0 
if While DataGridView1.Rows.Item(i).Cells.Item(0).Value IsNot DBNull.Value then 
var1 = DataGridView1.Rows.Item(i).Cells.Item(0).Value 
var2 = DataGridView1.Rows.Item(i).Cells.Item(1).Value 
i = i + 1 
MsgBox("Colonne 1: " & var1)  
MsgBox("Colonne 2: " & var2)  
end if

Et là, pas de soucis même si le champs est vide.

voila voila.
Merci

[Overkill78]

ton test est bizarre... car dans un premier temps tu rempli la variable var1 et a la fin de la boucle tu test si la valeur dans le datagrid est vide et si c'est le cas tu sors...
le test devrais être fait avant.
De plus ton deuxième test est plus que bizarre

Code :

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

if While DataGridView1.Rows.Item(i).Cells.Item(0).Value IsNot DBNull.Value then

sa m'etonne que ce code fonction...
un if n'est pas suivi d'un while :s

Si tu veux je te taperais un morceau de code si tu as besoin qui ressemble au tien.

[akabis]

De plus ton deuxième test est plus que bizarre

Code :

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

if While DataGridView1.Rows.Item(i).Cells.Item(0).Value IsNot DBNull.Value then

sa m'etonne que ce code fonction...
un if n'est pas suivi d'un while :s

Si tu veux je te taperais un morceau de code si tu as besoin qui ressemble au tien.

Pour le morceau de code je veux bien, merci.
Désolé, c'est une erreur de copier/collé.
Le test avec if est celui ci

Code :

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

1
2
3
4
5
6
7
8
i=0 
if DataGridView1.Rows.Item(i).Cells.Item(0).Value IsNot DBNull.Value then 
var1 = DataGridView1.Rows.Item(i).Cells.Item(0).Value 
var2 = DataGridView1.Rows.Item(i).Cells.Item(1).Value 
i = i + 1 
MsgBox("Colonne 1: " & var1)  
MsgBox("Colonne 2: " & var2)  
end if

ton test est bizarre... car dans un premier temps tu rempli la variable var1 et a la fin de la boucle tu test si la valeur dans le datagrid est vide et si c'est le cas tu sors...
le test devrais être fait avant.
.

C'est vrai, mais lorsque je fais le test avant, c'est pareil:

Code :

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

1
2
3
4
5
6
7
8
i=0
While DataGridView1.Rows.Item(i).Cells.Item(0).Value IsNot DBNull.Value
var1 = DataGridView1.Rows.Item(i).Cells.Item(0).Value 
var2 = DataGridView1.Rows.Item(i).Cells.Item(1).Value 
i = i + 1 
MsgBox("Colonne 1: " & var1)  
MsgBox("Colonne 2: " & var2)   
End While

Il faut surement faire autrement, mais je ne vois pas comment

[yann_DZ]

Bonjour

Si je ne me trompe pas, l'erreur est liée à la lecture d'une composante d'une ligne du datagridview qui ne doit pas exister.

Il te faut deux conditions : Savoir si tu as dépassé la dernière ligne et si ce n'est pas le cas, savoir si le contenu de la première colonne est nul.

Essaye avec ça :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim i as integer = 0
With DataGridView1
            Do Until i > .RowCount - 1 OrElse .Item(0, i).Value = ""
                MsgBox("Colonne 1 : " & .Item(0, i).Value)
                MsgBox("Colonne 2 : " & .Item(1, i).Value)
                i = i + 1
            Loop
        End With

[akabis]

Merci Yann_DZ, le problème est résolu.
Je n'ai plus la lecture, qui doit être comme tu l'indiques, d'une ligne inexistante.
Ca fonctionne correctement:
- en renseignant les 2 colonnes
- en renseignant la 1ere colonnes et aléatoirement la seconde (cas que je peux rencontrer)
- en terminant par la valeur zéro dans la 1ere colonne (cas que je ne peux pas rencontrer)

Par contre si il y a une erreur de saisie, ex: je rempli la 2eme colonne mais pas la 1ere, et que je continue la saisie sur les lignese suivantes, là il s'arrête.
Ce n'est de toute manière pas grave étant donné que la 1ere colonne correspond à des références et la seconde à des quantités, donc le résultat serait faux dans tous les cas en cas d'erreur de saisie.
Super en tout cas, je me prenais le choux depuis un moment sur ça.

Je vais regarder en détail ton code.

Merci pour votre participation.