Problème condition if dans datagridview
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:
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 |
