Discussion :

[Bacube]

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 :

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

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 :

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

1
2
3
4
Public DInt as Single
Public Sub RepriseAutomatiqueValeurSKF()
        DInt = RepriseAutoDInt()
End Sub

Et le code de la reprise automatique :

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

'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

[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

[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

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

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

1
2
3
            If i = dtgv.RowCount - 1 Then
                Exit Do
            End If

Cette condition devant être tester en premier dans la boucle.

[bsm2006]

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

Code :

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

i = dtgv.RowCount()

--> ligne .. OK mais

Code :

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

dtgv.Item(0, i)

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

[chrismonoye]

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

Code :

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

i = dtgv.RowCount()

--> ligne .. OK mais

Code :

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

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

[Shadam]

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

Code :

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

i = dtgv.RowCount()

--> ligne .. OK mais

Code :

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

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.

[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

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

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

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

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

[Shadam]

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 :

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

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

[tleblanc]

Salut.

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

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

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