Discussion :

[guilld]

Bonjour,

Pourquoi dans mon code, les colonnes de mon Datagridview sont répétées a chaque ajout de ligne?

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
 Private Sub BT_ADD_PANIER_Click(sender As Object, e As EventArgs) Handles BTN_ADD_PANIER.Click
Dim j As Integer = DG_LISTE_NOMENCL.CurrentRow.Index
 
        With DG_PANIER
            .Columns.Add("NOMENCLATURE", "NOMENCLATURE")
            .Columns.Add("DESIGNATION", "DESIGNATION")
            .Columns.Add("UC", "UC")
            .Columns.Add("QUANTITE", "QUANTITE")
        End With
 
        DG_PANIER.Rows.Add(DG_LISTE_NOMENCL.Rows(j).Cells("NOMENCLATURE").Value, DG_LISTE_NOMENCL.Rows(j).Cells("DESIGNATION").Value, _
                    DG_LISTE_NOMENCL.Rows(j).Cells("UC").Value, TB_QTE.Text)
 
 
    End Sub

Merci pour votre aide.

J'ai retiré le WITH et inscrit les noms des colonnes en dur !

[François DORIN]

Bonjour,

Parce qu'à chaque ajout de ligne, tu ajoutes les colonnes. Cf le code en gras ci dessous...

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
 Private Sub BT_ADD_PANIER_Click(sender As Object, e As EventArgs) Handles BTN_ADD_PANIER.Click
Dim j As Integer = DG_LISTE_NOMENCL.CurrentRow.Index
       
        With DG_PANIER
            .Columns.Add("NOMENCLATURE", "NOMENCLATURE")
            .Columns.Add("DESIGNATION", "DESIGNATION")
            .Columns.Add("UC", "UC")
            .Columns.Add("QUANTITE", "QUANTITE")
        End With

        DG_PANIER.Rows.Add(DG_LISTE_NOMENCL.Rows(j).Cells("NOMENCLATURE").Value, DG_LISTE_NOMENCL.Rows(j).Cells("DESIGNATION").Value, _
                    DG_LISTE_NOMENCL.Rows(j).Cells("UC").Value, TB_QTE.Text)


    End Sub