скопировать данные из несвязанного dgv в связанный dgv - PullRequest
Новая
       4

скопировать данные из несвязанного dgv в связанный dgv

0 голосов
/ 18 января 2020

У меня есть два dgv, первый dgv не связан, а второй связан. Я хочу скопировать данные в каждой ячейке в связанный dgv, чтобы сохранить его. У меня есть кнопка, но когда я нажимаю ее, она говорит: «Строки не могут быть программно добавлены в коллекцию строк DataGridView, когда элемент управления привязан к данным».

Вот мой код: 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click


    For i As Integer = 0 To DataGridView1.Rows.Count() - 1 Step +1

        Dim rowAlreadyExist As Boolean = False
        Dim check As Boolean = DataGridView1.Rows(i).Cells(3).Value
        Dim row As DataGridViewRow = DataGridView1.Rows(i)

        If check = True Then
            If Sales.SalesDataGridView.Rows.Count() > 0 Then


                For j As Integer = 0 To Sales.SalesDataGridView.Rows.Count() - 1 Step +1
                    If row.Cells(0).Value.ToString() = Sales.SalesDataGridView.Rows(j).Cells(0).ToString() Then
                        rowAlreadyExist = True
                        Exit For
                    End If
                Next

                If rowAlreadyExist = False Then
                    Sales.SalesDataGridView.Rows.Add(row.Cells(0).Value.ToString(),
                                           row.Cells(1).Value.ToString(),
                                           row.Cells(2).Value.ToString(),
                                           row.Cells(3).Value.ToString(),
                                           row.Cells(4).Value)
                End If

            Else

                Sales.SalesDataGridView.Rows.Add(row.Cells(0).Value.ToString(),
                                     row.Cells(1).Value.ToString(),
                                           row.Cells(2).Value.ToString(),
                                           row.Cells(3).Value.ToString(),
                                           row.Cells(4).Value)
            End If
        End If
    Next
...