Discussion :

[oami89]

Bonjour,
J'ai un problème avec la condition if si dessous en rouge.
le code ci dessous permet d'affecter dans les colonnes du datagridview les donné de ma base (table article: identifiant ,designation ,prix ,remise... )avec deux méthode.
1er: si je tape l'identifiant de la table dans la cellule(0) du datagridview et je clique flèche droit du clavier le reste des attribut va etre affecter dans le reste du datagridview.
2eme:si je tape le caractère ? et je clique flèche droit du clavier il va etre afficher un form qui contient un textbox qui permet de choisir une designation ,on choisi une et donc tous le reste des attribut va etre affecté.
la 1er if (1er methode)marche bien,mais la elseif (2ème méthode) marche au debut puis elle affiche un erreur dans la 1er if(1er methode) qui n'est pas juste et plus que j'ai testé quelle accede a la 1ere if avec le msgbox en bleu qui a marché.

Merci de m'aider

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
33
 Public ligne As Integer
 Private Sub entre_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Dg.KeyUp

        If e.KeyCode = Keys.Right Then
            ligne = Dg.CurrentCell.RowIndex
            Do
                If (Dg.Rows(ligne).Cells(0).Value <> "" And Dg.Rows(ligne).Cells(0).Value <> "?") Then
                   

                    MsgBox("azerttyuuiiiooooookk")
                    Dim adpt2 As New SqlDataAdapter("select A.DESIG,A.PVHTGRO,A.CTVA from [Base-Ets-Mtiri].[dbo].[ARTICLE] A where A.ART='" & Me.Dg.Rows(Me.ligne).Cells(0).Value & "'", con)

                 code...
                    End If
                  
                    Exit Do


                ElseIf Dg.Rows(ligne).Cells(0).Value = "?" Then

                    Dialogarticle.Show()
                    Exit Do

                End If

            Loop While ligne < 100



        End If

    End Sub

[asmduty]

Ne serait-ce pas un problème du fait que tu as moins de 100 lignes ?

[oami89]

Ne serait-ce pas un problème du fait que tu as moins de 100 lignes ?

J'ai pas un problème du boucle,j'ai un problème de condition.

[asmduty]

Tentative non valide de lecture lorsque aucune donnée n'est présente.

D'où ma question.

Il y a-t-il 100 lignes ?


Dg.Rows(ligne).Cells(0).Value <> "" And Dg.Rows(ligne).Cells(0).Value <> "?"

tu as 5 lignes, tu continues jusqu'a la ligne 100
les 5 premières lignes nickel, la ligne 6 tu cherche la valeur dans la cellule 0.
Sachant que tu as pas de ligne 6 il t'envoie balader ...

[oami89]

D'où ma question.

Il y a-t-il 100 lignes ?


Dg.Rows(ligne).Cells(0).Value <> "" And Dg.Rows(ligne).Cells(0).Value <> "?"

tu as 5 lignes, tu continues jusqu'a la ligne 100
les 5 premières lignes nickel, la ligne 6 tu cherche la valeur dans la cellule 0.
Sachant que tu as pas de ligne 6 il t'envoie balader ...

non,moi j'ajoute les ligne au fur et a mesure que le nombre d'ajout peut atteindre le 100 ligne c'est pas ca le problème

[asmduty]

Ba écoute vu l'erreur ...

Tu dis que ça bloque sur le if n°1.
Pourquoi il n'arrive pas passer ce if alors qu'il devrait arriver au second puisque la condition est fausse selon toi ?

Enfin bref bonne chance, n'oublie surtout pas de nous donner la solution à ce problème une fois qu'il sera résolu.

[LeCygne]

Bonjour,

1er: si je tape l'identifiant de la table dans la cellule(0) du datagridview et je clique flèche droit du clavier le reste des attribut va etre affecter dans le reste du datagridview.

La boucle suivante parcoure toutes les ligne de votre table. A quoi sert elle ?

Code :

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

1
2
3
4
5
6
 
For k = 0 To dst2.Tables("table").Rows.Count - 1
    des = dst2.Tables("table").Rows(k).Item(0) & vbCrLf
    pht = dst2.Tables("table").Rows(k).Item(1) & vbCrLf
    ctva = dst2.Tables("table").Rows(k).Item(2) & vbCrLf
Next

la 1er if (1er methode)marche bien,mais la elseif (2ème méthode) marche au debut puis elle affiche un erreur dans la 1er if(1er methode) qui n'est pas juste et plus que j'ai testé quelle accede a la 1ere if avec le msgbox en bleu qui a marché.
aidez moi SVP

Quel est ce message d'erreur ?

[oami89]

Bonjour,
La boucle suivante parcoure toutes les ligne de votre table. A quoi sert elle ?
Quel est ce message d'erreur ?

La boucle sert a effectuer le traitement dans tous les lignes du datagridview.

Le message d'erreur est:

Tentative non valide de lecture lorsque aucune donnée n'est présente.

(qui est causé a des donné manquant parce que accède a la 1er if que normale il n'accède pas).

[LeCygne]

Bonjour,

Pour avoir brièvement testé ce code tout à l'heure, je peux preciser à ceux qui apportent leur contribution, que la boucle n'est pas genante. Voici sa structure lorsqu'on l'epure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Do
    If (Dg.Rows(ligne).Cells(0).Value <> "" And Dg.Rows(ligne).Cells(0).Value <> "?") Then
        ...
        Exit Do
 
    ElseIf Dg.Rows(ligne).Cells(0).Value = "?" Then
 
        Dialogarticle.Show()
        Exit Do
 
    End If
 
Loop While ligne < 100

En fait, elle ne sert ici à rien puisque on fait un "Exit Do" dans les deux cas testé (Pour être tomber dedans, le cas de la chaine vide aboutit à une boucle sans fin... Mais sans plantage).

oami89, afin d'éliminer tout cas supect et de faciliter les autres membres à vous aider, je vous suggère de faire disparaitre cette boucle et de réécrire le code de la manière suivante :

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
 
'Do
    If (Dg.Rows(ligne).Cells(0).Value = "") Then
        'Cellule contenant une chaine vide
        'Code à prevoir....
 
    ElseIf (Dg.Rows(ligne).Cells(0).Value = "?") Then
        'Cellule contenant un point d'interrogation
        Dialogarticle.Show()
        ....
        'Exit Do
    Else
        'Cellule contenant n'importe quelle autre valeur
        MsgBox("azerttyuuiiiooooookk")
        ....
        'Exit Do
 
    End If
 
'Loop While ligne < 100

Je n'ai pas réussi à reproduire votre érreur faute de DataTable.

[oami89]

je vous explique encore:
j'ai un datagridview.Je veux si je clique flèche droit du clavier sur un cellule du ligne du 0.100 et de colonne 0:
traitement 1 du 1 er if ---> après avoir écrire le code article le reste des attributs va et être affecté dans le reste des colonnes.
traitement 2 du 2eme if ---> après avoir écrire le ? elle s'ouvre une fenêtre dialogue_article qui contient liste des codes et après le choix, le code est affecté avec le reste des attributs dans le datagridview.

le 1er traitement qui est la 1er méthode d'affectation fonctionne bien.
mais le 2eme traitement au début du débogage les données s'affecte bien dans le datagridview dans le 2ème if marche bien mais après il entre dans le premier if que normalement il ne lui accède pas donc affiche un erreur de manque de données.

[asmduty]

J'avais pas vu le end Do, qu'est-ce que c'est pas beau de coder comme ça ><

Bref, comme dit au dessus, pose un point d'arrêt sur ton second if, et vas-y au pas à pas, c'est surement un petit truc tout bête.