Problème de récupération de valeur dans une DataGridView

Version imprimable

Bonjour,

Actuellement je fais des essais pour récupérer une valeur précise d'une ligne d'un DataGridView.

Voici le code dans le formulaire pour appeler la procédure :
Code:

1 2 3 4 5 Private Sub ComboBoxReference_Validated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxReference.Validated referenceSKF = ComboBoxReference.Text RepriseAutomatiqueValeurSKF() MsgBox(DInt) End Sub
Voici la procédure de la reprise automatique
Code:

1 2 3 4 Public DInt as Single Public Sub RepriseAutomatiqueValeurSKF() DInt = RepriseAutoDInt() End Sub
Et le code de la reprise automatique :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Private Function RepriseAutoDInt() As Single Dim a As String Dim i As Integer Dim dtreprise As New DataTable Dim dtgv As New DataGridView i = 0 dtreprise = OuvrirCatalogueSKF() ' lit un fichier .txt et créer une DtataTable de celui-ci que je retourne dans cette celle-ci dtgv.DataSource = dtreprise Do a = CStr(dtgv.Item(0, i).Value) 'Erreur If referenceSKF <> a Then i = i + 1 End If If i = dtgv.RowCount() Then Exit Do End If Loop Until referenceSKF = a Return CSng(dtgv.Item(1, (i)).Value) 'De ce fait je soupçonne la même Erreur ici End Function
Citation:

'Erreur =
L'exception ArgumentOutOfRangeExeption n'a pas été gérée par le controle utilisateur
L'index était hors limites. Il ne doit pas être négatif et doit être inférieur à la taille de la collection.
Nom du paramètre : Index

De mes recherche j'en ai déduit que le DataGridView ne se créé pas ou mal, les colonnes/lignes/valeurs ne sont pas présentent, donc pas d'index...

Peut être le problème est différent de ce que je suppose, mais je ne sais comment le régler. Y a t'il une autre méthode pour récupérer la valeur en utilisant directement le DataTable ?

Cordialement,
Bacube

11/08/2011, 09h34
Shadam

Je ne me sers jamais des datatables pour remplir mes DGV je préfère le faire à la main, plus long mais au moins je sais ce qu'il y a dedans et où...

Mais il me semble qu'il faut que tu fasses un fill ou un truc comme ça pour charger les données dans le DGV
11/08/2011, 09h41
Bacube

Oui moi aussi je procédais comme ça avant, mais mon supérieur veut que l'on utilise des fichier .txt à charger dans le programme, comme ça quand les données vont changer pas besoins d'aller modifier à l'intérieur même du programme.

Donc je me retrouve coincé à utiliser un DataTable pour intégrer les fameuses données dans un DataGridView.

A moins que je peux générer un DataGridView directement du fichier .txt ?

Cordialement,
Bacube
11/08/2011, 13h17
chrismonoye
Bonjour,
vu l'erreur, je pense qu'elle est liée au différentes base de comptage.
DGV.Item est de base 0
Dgv.RowCount de base 1
A tester :
Code:

1 2 3 If i = dtgv.RowCount - 1 Then Exit Do End If
Cette condition devant être tester en premier dans la boucle.
11/08/2011, 14h00
bsm2006

Bonjour,
Dans ton code, la variable i représente un itérateur de ligne ou de colonne ?

Code:

i = dtgv.RowCount()

--> ligne .. OK mais

Code:

dtgv.Item(0, i)

--> colonne !!! ou je me suis trompé ?
11/08/2011, 14h15
chrismonoye

Citation:

Envoyé par bsm2006

Bonjour,
Dans ton code, la variable i représente un itérateur de ligne ou de colonne ?

Code:

i = dtgv.RowCount()

--> ligne .. OK mais

Code:

dtgv.Item(0, i)

--> colonne !!! ou je me suis trompé ?

Pourtant, cela semble correct selon : http://msdn.microsoft.com/fr-fr/libr...=VS.90%29.aspx
11/08/2011, 14h46
Shadam

Citation:

Envoyé par bsm2006

Bonjour,
Dans ton code, la variable i représente un itérateur de ligne ou de colonne ?

Code:

i = dtgv.RowCount()

--> ligne .. OK mais

Code:

dtgv.Item(0, i)

--> colonne !!! ou je me suis trompé ?

Non c'est bien ça, le premier indice est l'index de colonne et le second l'index de ligne, je pense que le problème vient du fait que tu cherches dans un DGV vide, soit parce que ta requête ne ramène rien, soit parce que tu cherches avant que le DGV ne se remplisse, ou alors tes indices sont hors limite.

Ce que disais Chrismonoye est juste, ton rowcount est de base 1 il faut donc que tu lui fasse un -1 pour avoir un indice de base 0.
11/08/2011, 15h42
Bacube

Merci je vais tester ça pour voir si je peux récupérer la valeur.

Par contre on parle de base de comptage (base 0 et Base 1), y a t'il une documentation la dessus, ou pourriez vous m'expliquer la différence ?

Cordialement,
Bacube
11/08/2011, 16h02
Shadam

En VB tout les index sont de base 0, c'est à dire que le compte part de 0 et fait donc 0, 1, 2, etc... alors que les count() partent de 1 (1, 2, 3, etc...) il faut donc faire des -1 quand tu t'en sert pour indexer une fonctions.

Bonjour,
autre chose, dans le code fourni, il y a création d'un DGV, mais on ne voit pas comment il est ajouté au formulaire , genre :
Code:

1 2 3 4 5 6 With dtgv .Location = New Point(10, 10) .Width = 700 .Height = 150 End With Me.Controls.Add(dtgv)

12/08/2011, 11h21
Shadam
Citation:
Envoyé par chrismonoye

Bonjour,
autre chose, dans le code fourni, il y a création d'un DGV, mais on ne voit pas comment il est ajouté au formulaire , genre :

Code:

1 2 3 4 5 6 With dtgv .Location = New Point(10, 10) .Width = 700 .Height = 150 End With Me.Controls.Add(dtgv)

Salut.

J'ai rajouter quelque commentaire pour t'indiquer pourquoi a mon avis ca plante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 Private Function RepriseAutoDInt() As Single
        Dim a As String
        Dim i As Integer
        Dim dtreprise As New DataTable
        Dim dtgv As New DataGridView
 
        i = 0
 
        dtreprise = OuvrirCatalogueSKF() ' lit un fichier .txt et créer une DtataTable de celui-ci que je retourne dans cette celle-ci
        dtgv.DataSource = dtreprise
 
        Do
            'Ici ca plante forcement si tu n'as pas de ligne dans ton DataGridView ou si la valeur est null 
            ' il faut faire un controle !!
            a = CStr(dtgv.Item(0, i).Value) 'Erreur
 
            If referenceSKF <> a Then
                i = i + 1
            End If
 
            'A verifier avant
            If i = dtgv.RowCount() Then
                Exit Do
            End If
 
        Loop Until referenceSKF = a
 
        Return CSng(dtgv.Item(1, (i)).Value) 'De ce fait je soupçonne la même Erreur ici
    End Function

Ensuite je te propose plutot ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 Private Function RepriseAutoDInt() As Single
        Dim a As String
        Dim Val_a As Single
        Dim i As Integer
        Dim dtreprise As New DataTable
        Dim dtgv As New DataGridView
 
        dtreprise = OuvrirCatalogueSKF() ' lit un fichier .txt et créer une DtataTable de celui-ci que je retourne dans cette celle-ci
        dtgv.DataSource = dtreprise
 
        i = 0
        a = String.Empty
 
        Dim Row As DataGridViewRow
        While i < dtgv.Rows.Count And a <> referenceSKF
            Row = dtgv.Rows(i)
 
            If Row.Cells(0).Value Is System.DBNull.Value Then
                a =  String.Empty
            Else
                a = CStr(Row.Cells(0).Value)
            End If
 
        End While
 
 
        If Single.TryParse(a, Val_a) Then
            Return Val_a
        Else
            Return 0
        End If
    End Function