Comment faire pour copier Une ligne à une autre ligne dans gridview

À L'Aide De VB.Net

Je veux Copier une ligne de données à une autre ligne.

Je suis en utilisant la case à cocher dans le contrôle gridview, si j'ai cliqué sur la case et appuyez sur le bouton de ligne sélectionnée copie de la nouvelle cellule (ligne)

Code ci-dessous fonctionne pour supprimer, pas de travail pour copier les lignes

Code 

 Private Sub btncopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncopy.Click
        For Each m_row As System.Windows.Forms.DataGridViewRow In Me.grvList.Rows
            If m_row.Cells("chksel").Value = True Then
               Me.grvList.Rows.Add(m_row)
             '  Me.grvList.Rows.Remove(m_row)
            End If
        Next
    End Sub

Le code ci-dessus montre l'erreur "Ligne fourni appartient déjà à un contrôle DataGridView."

Ce problème avec mon code.

Besoin VB.Net Code De L'Aide

InformationsquelleAutor Gopal | 2011-10-13
  1. 2

    Vous ne pouvez pas ajouter exactement la même ligne de nouveau. Vous aurez besoin de créer une nouvelle ligne et de le remplir avec les valeurs de la rangée, vous êtes au lieu de dupliquer, puis ajouter la nouvelle ligne de la grvList.Les lignes

    Je ne suis pas sûr de ce genre de valeurs que vous avez dans chaque cellule, mais tant qu'ils sont des types de valeur à quelque chose comme la suivante devrait fonctionner:

        For Each m_row As System.Windows.Forms.DataGridViewRow In Me.grvList.Rows
        If m_row.Cells("chksel").Value = True Then
            'Create new row to hold duplicated values
            Dim NewRow As DataRow = grvList.NewRow()
            'loop thru existing rows to copy values
            For i As Integer = 0 To m_row.Cells.Count - 1
                NewRow(i) = m_row.Cells(i).Value
            Next
            'Add newly create row to table
            Me.grvList.Rows.Add(NewRow)
            '  Me.grvList.Rows.Remove(m_row)
        End If
    Next

    Gardez à l'esprit que si les éléments dans l'une des cellules sont des types référence que vous serez toujours référence au même article, au lieu de créer une copie de l'élément. Beaucoup comme vous le faisiez en appelant simplement ajouter sur la même ligne que vous situé.

    Désolé, j'ai manqué les lignes ont été DataGridView lignes, plutôt que d'un datatable qui était lié... cela devrait faire l'affaire dans ce cas:

                For Each m_row As System.Windows.Forms.DataGridViewRow In Me.grvList.Rows
                If m_row.Cells("chksel").Value = True Then
                    'Create new row to hold duplicated values
                     Dim NewRow As DataGridViewRow = m_row.Clone
                     'Add newly create row to table
                     Me.grvLIst.Rows.Add(NewRow)
                End If
            Next
    • Pourriez-vous s'il vous plaît poster un exemple de code.
    • Édité ci-dessus pour un exemple.
    • Merci, il montre l'erreur sur cette ligne "Dim NewRow Comme DataRow = grvList.NewRow()".
    • J'ai un peu raté le type dans la boucle for each (en raison de la cécité) et ont changé sur la base que pour modifier le datagridview directement plutôt que d'une datatable qui est lié à la grille.
    InformationsquelleAutor Jay
  2. 1
    'To copy Row
Private Sub CopyButton_Click(sender As System.Object, e As System.EventArgs) Handles CopyButton.Click
    CopyRowIndex = DGV1.CurrentRow.Index
End Sub

'To Paste Row
Private Sub PasteButton_Click(sender As System.Object, e As System.EventArgs) Handles PasteButton.Click
    PasteRowIndex = DGV1.CurrentRow.Index
    For index As Int32 = 0 To DGV1.ColumnCount - 1
        DGV1.Rows(CInt(PasteRowIndex)).Cells(index).Value = DGV1.Rows(CInt(CopyRowIndex)).Cells(index).Value
    Next

End Sub

'To Duplicate Rows
Private Sub DuplicateButton_Click(sender As System.Object, e As System.EventArgs) Handles DuplicateButton.Click
    CopyRowIndex = DGV1.CurrentRow.Index
    DGV1.Rows.Add()
    DuplicateRowIndex = DGV1.Rows.Count - 1
    For index As Int32 = 0 To DGV1.ColumnCount - 1
        DGV1.Rows(CInt(DuplicateRowIndex)).Cells(index).Value = DGV1.Rows(CInt(CopyRowIndex)).Cells(index).Value
    Next
End Sub
    InformationsquelleAutor Hanish