Discussion :

[najoua01]

Bonjour,
je veux modifier des données au niveau de datagridview voici mes étapes:
-double click sur la ligne de datagrid
-récupéré les données dans des textbox(voici le code de cette étape)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Try
            Dim i As Integer = Me.DataGridView1.CurrentRow.Index
            If Me.DataGridView1.Item("Column5", i).Value <> "" And Me.DataGridView1.Item("Column4", i).Value <> "" And Me.DataGridView1.Item("Column6", i).Value <> "" And Me.DataGridView1.Item("Column7", i).Value <> "" Then
                Me.TXT_REMISE.Text = Me.DataGridView1.Item("Column3", i).Value
                Me.TXT_PUNET.Text = Me.DataGridView1.Item("Column5", i).Value
                Me.TXT_PUHT.Text = Me.DataGridView1.Item("Column4", i).Value
                Me.TXT_QTE.Text = Me.DataGridView1.Rows(i).Cells("Column6").Value
                Me.TXT_MONTAHT.Text = Me.DataGridView1.Rows(i).Cells("Column7").Value
                Me.CBX_DELAI.Text = Me.DataGridView1.Item("DET_DEV_DEL", i).Value
            End If
        Catch ex As Exception
            MsgBox("Exception :" & ex.Message)
        End Try

-modifier les données
-après les récupéré dans sa ligne le problème dans cette étape

[mactwist69]

Ou est l'erreur ? la question ?

[najoua01]

après les récupéré dans sa ligne le problème dans cette étape
voici le problème
merci d'avance

[mactwist69]

Ben tu prends la même choses que ton code mais a l'envers:

Code :

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

1
2
Me.DataGridView1.Item("Column3", i).Value = Me.TXT_REMISE.Text
Me.DataGridView1.Item("Column5", i).Value = Me.TXT_PUNET.Text

etc...

[najoua01]

merci bcp mactwist69 mais tous ça je le connais
bon je t'explique
j'ai une bouton d'ajouter des données dans des texbox au daatgridview mais quand je veux modifier une ligne au datagridview je veux le même bouton faire le même role

je veux faire deux chose différent par une seul bouton

merci d'avance voici le code d'ajout des données dans texbox au datagridview

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
  Static refKey As Keys = Keys.Enter
        If e.KeyData = refKey Then
            Try
                Dim i As Integer = Me.DataGridView1.Rows.Count - 2
                Me.DataGridView1.Rows(i).Cells("Column3").Value = Me.TXT_REMISE.Text
                Me.DataGridView1.Rows(i).Cells("Column5").Value = Me.TXT_PUNET.Text
                Me.DataGridView1.Rows(i).Cells("Column4").Value = Me.TXT_PUHT.Text
                Me.DataGridView1.Rows(i).Cells("Column6").Value = Me.TXT_QTE.Text
                Me.DataGridView1.Rows(i).Cells("Column7").Value = Me.TXT_MONTAHT.Text
                Me.DataGridView1.Rows(i).Cells("DET_DEV_DEL").Value = Me.CBX_DELAI.Text
                Me.TXT_REMISE.Text = ""
                Me.TXT_PUHT.Text = ""
                Me.TXT_PUNET.Text = ""
                Me.TXT_QTE.Text = ""
                Me.TXT_MONTAHT.Text = ""
                Me.CBX_FAMILL.Text = ""
                Me.CBX_REF.Text = ""
                Me.CBX_DELAI.Text = ""
            Catch ex As Exception
                MsgBox("Exception :" & ex.Message)
            End Try
        End If

[mactwist69]

C'est a dire ? Fait des phrases simples...

Tu veux que le même bouton puisse :

- Remplir les textbox avec la ligne sélectionné ?
- Utilises les données des textbox pour mettre a jour le datagridview ?

C'est bien ca ?

Et le problème c'est que tu ne sais pas quel code utiliser pour qu'il sache ce qu'il doit faire ?

[najoua01]

je veux:
-récupérer des textbox à la ligne sélictionner au datagridview
-ajouter des nouveau ligne au datagridview
avec une seul bouton
merci

[mactwist69]

Et ou est le problème ?

Tu ne sais pas:
-Comment ajouter une ligne au datagridview ?

-Créer l'algorithme (organiser ton code) qui te permettra de faire
soit de modifier une ligne dans le datagridview
soit ajouter une ligne au datagridview
Pour le même bouton ?

[najoua01]

Bonjour,
c'est pas le problème de code mais de test les deux cas
-récupérer des textbox à la ligne sélictionner au datagridview
-ajouter des nouveau ligne au datagridview

[mactwist69]

Il te faudra surement 2 boutons:

"Nouveau" et "Modifier"

tu peux aussi utiliser 2 boutons pour "Enregistrer" et "Annuler"

Tu te créer une variable global:

Private Nouveau as Boolean

Si l'utilisateur clique sur le bouton "Nouveau" tu mets ta variable a True sinon a False.

Quand l'utilisateur clique sur Enregistrer, tu control cette variable et en fonction de sa valeur tu sauras quoi faire.

Tout faire avec un seul bouton... sans bouton Annuler me parait difficile !

[najoua01]

oui je sais mais ce que je veux dans le emem bouton je veux insérer nouveau ligne au datagridview et aussi quand je selectionne un ligne au milieu de datagridview et les modifiés dans des textbox après les récupere au adtagridview dans la ligne sélictionner tous ça avec une seul bouton voici le 1 code (insérer les données au dernier ligne de datagridview)

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
 Static refKey As Keys = Keys.Enter
        If e.KeyData = refKey Then
            Try
                Dim i As Integer = Me.DataGridView1.Rows.Count - 2
                Me.DataGridView1.Rows(i).Cells("Column3").Value = Me.TXT_REMISE.Text
                Me.DataGridView1.Rows(i).Cells("Column5").Value = Me.TXT_PUNET.Text
                Me.DataGridView1.Rows(i).Cells("Column4").Value = Me.TXT_PUHT.Text
                Me.DataGridView1.Rows(i).Cells("Column6").Value = Me.TXT_QTE.Text
                Me.DataGridView1.Rows(i).Cells("Column7").Value = Me.TXT_MONTAHT.Text
                Me.DataGridView1.Rows(i).Cells("DET_DEV_DEL").Value = Me.CBX_DELAI.Text
                Me.TXT_REMISE.Text = ""
                Me.TXT_PUHT.Text = ""
                Me.TXT_PUNET.Text = ""
                Me.TXT_QTE.Text = ""
                Me.TXT_MONTAHT.Text = ""
                Me.CBX_FAMILL.Text = ""
                Me.CBX_REF.Text = ""
                Me.CBX_DELAI.Text = ""
            Catch ex As Exception
                MsgBox("Exception :" & ex.Message)
            End Try
        End If

le 2ème code(insérer des données au ligne sélictionner)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Try
            Dim i As Integer = Me.DataGridView1.CurrentRow.Index
            If Me.DataGridView1.Item("Column5", i).Value <> "" And Me.DataGridView1.Item("Column4", i).Value <> "" And Me.DataGridView1.Item("Column6", i).Value <> "" And Me.DataGridView1.Item("Column7", i).Value <> "" Then
                Me.TXT_REMISE.Text = Me.DataGridView1.Item("Column3", i).Value
                Me.TXT_PUNET.Text = Me.DataGridView1.Item("Column5", i).Value
                Me.TXT_PUHT.Text = Me.DataGridView1.Item("Column4", i).Value
                Me.TXT_QTE.Text = Me.DataGridView1.Rows(i).Cells("Column6").Value
                Me.TXT_MONTAHT.Text = Me.DataGridView1.Rows(i).Cells("Column7").Value
                Me.CBX_DELAI.Text = Me.DataGridView1.Item("DET_DEV_DEL", i).Value
            End If
        Catch ex As Exception
            MsgBox("Exception :" & ex.Message)
        End Try

Merci

[chrismonoye]

Bonsoir,
pour le bouton "Ajouter-modifier" ça doit être possible en créant une variable qui prend le numéro de la ligne double-cliquée.
En l'initialisant à -1 (voulant dire aucune ligne) du genre :

Code :

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

1
2
3
4
5
6
7
    Dim numLigne As Integer = -1
    Private Sub DataGridView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.DoubleClick
        Try
            Dim i As Integer = Me.DataGridView1.CurrentRow.Index
            numLigne = i
            If Not DataGridView1.Item("Column5", i).Value Is Nothing And Not DataGridView1.Item("Column4", i).Value Is Nothing _
            And Not DataGridView1.Item("Column6", i).Value Is Nothing And Not DataGridView1.Item("Column7", i).Value Is Nothing Then

Puis tester sa valeur avec le clic du bouton , sans oublier de la réinitialiser à -1 en fin de traitement ;

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
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
            Dim i As Integer = -1
 
            If numLigne = -1 Then
                i = Me.DataGridView1.Rows.Count - 1
            Else
                i = numLigne
 
            End If
            Me.DataGridView1.Rows(i).Cells("Column3").Value = Me.TXT_REMISE.Text
            Me.DataGridView1.Rows(i).Cells("Column5").Value = Me.TXT_PUNET.Text
            Me.DataGridView1.Rows(i).Cells("Column4").Value = Me.TXT_PUHT.Text
            Me.DataGridView1.Rows(i).Cells("Column6").Value = Me.TXT_QTE.Text
            Me.DataGridView1.Rows(i).Cells("Column7").Value = Me.TXT_MONTAHT.Text
 
           '..... ETC.....
 
            numLigne = -1
 
    End Sub

[najoua01]

merci bouceaup chrismonoye
ça marche rès bien mais avec numLigne = -2

Merci à tous