VB.NET: Как скопировать данные выбранной ячейки в первую выбранную ячейку в другой форме?

Question

Мой вопрос может сбивать с толку, но вот пошаговый процесс вывода, который я хочу выполнить.

Сначала, когда я щелкаю ячейку в первой форме, появляется другая форма.см. изображения ..

Изображение 1 Изображение 2

, затем, если я щелкну данные ячейки второй формы, она должна скопировать данные выбранной строкикода и короткого имени для первой ячейки таблицы данных в форме 1

Вот мой код:

Private Sub SearchJournalGrid_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles SearchJournalGrid.CellContentDoubleClick
      With GeneralJournal
            .GridJournal.Rows(.GridJournal.SelectedRows(0).Index).Cells("Code").Value = SearchJournalGrid.Rows(SearchJournalGrid.SelectedRows(0).Index).Cells("CODE").Value.ToString
            .GridJournal.Rows(.GridJournal.SelectedRows(0).Index).Cells("Account Name").Value = SearchJournalGrid.Rows(SearchJournalGrid.SelectedRows(0).Index).Cells("Short Name").Value.ToString
      End With
End Sub

Answer 1

Дайте мне знать, если я правильно понял!

Начните новый проект с двумя формами в нем, Form1 и Form2, добавьте DataGridView в каждой со своим исходным именем, которое по умолчанию будет DataGridView1.Я создал 3 столбца для каждого из них.Код, который помещен в единственную форму Form1, выглядит следующим образом:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    For i As Integer = 0 To 5
        DataGridView1.Rows.Add(New String() {i + 1, "ITEM " & i + 1, "Description " & i + 1})
    Next
End Sub

Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
    Dim ROW_ID As Integer = DataGridView1.CurrentCell.RowIndex

    Dim DGV_Row As DataGridViewRow = DataGridView1.Rows(ROW_ID).Clone

    For J As Integer = 0 To DGV_Row.Cells.Count - 1
        DGV_Row.Cells(J).Value = DataGridView1.Rows(ROW_ID).Cells(J).Value
    Next

    With Form2
        .DataGridView1.Rows.Clear()
        .DataGridView1.Rows.Add(DGV_Row)
    End With
    Form2.Show()
End Sub