Question

我的问题可能令人困惑，但这是我要完成的输出的逐步过程。

首先，当我单击第一个表单中的单元格时，弹出另一个表单。看图片。

然后，如果我单击第二种形式的单元格数据，则应将所选的“代码”和“短名称”行数据复制到第一种形式的第一个datagridview单元格中

到目前为止，这是我的代码：

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

VB.NET：如何以其他形式将所选单元格数据复制到第一个所选单元格？

1 个答案: