Discussion :

[guilld]

Bonjour,

Je tente désespérément de pouvoir faire plusieurs copie d'une ligne sélectionnée d'un DG vers un autre DG.
Le HIC est que toutes les colonnes sont dupliquées elles aussi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 If DG_LISTE_NOMENCL.RowCount = 0 Or Nothing Then
        Else
 
            For Each cell As DataGridViewColumn In DG_LISTE_NOMENCL.Columns
                DG_PANIER.Columns.Add(DirectCast(cell.Clone, DataGridViewColumn))
 
            Next
 
            DG_PANIER.Rows.Add(DG_LISTE_NOMENCL.CurrentRow.Cells.Cast(Of DataGridViewCell).Select(Function(c) c.Value).ToArray)
 
        End If

Merci pour votre aide.

[guilld]

Mon code évolue..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim j As Integer = DG_LISTE_NOMENCL.CurrentRow.Index
        Dim dt As New DataTable
 
        dt.Columns.Add("NOMENCLATURE", GetType(String))
        dt.Columns.Add("DESIGNATION", GetType(String))
        dt.Columns.Add("UC", GetType(String))
        dt.Columns.Add("QUANTITE", GetType(String))
 
        DG_PANIER.DataSource = dt
        dt.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)

Maintenant les colonnes ne sont plus répétées mais à chaque click, la nouvelle ligne remplace celle qui existait.
Ce que je souhaite, c'est ajouter une ligne à chaque click.

Merci

[guilld]

Nouvelle tentative mais cette encore, les colonnes sont répétées à chaque insertion de la nouvelle ligne..

Code :

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

1
2
3
4
5
6
7
8
9
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)

HELP ME!!! Please