在 VB.NET 中将一个 datagridview 数据传输到另一个 datagridview

Question

问题：将多个行和列从一个 datagridview（非数据绑定）移动到另一个 datagridview，然后从另一个数据绑定的表单显示第二个 datagridview 行。

开发平台：VB.NET 2008

问题描述：

• 我在另一个表单的 datagridview 中有一些行和列，这些行和列现在是从本地数据库中填充的，该数据库现在已连接到我的应用程序中。
• Update 参数内的 EncodingCompleteDataSet 出现错误，提示“错误 1 ​​'EncodingCompleteDataSet' 是一种类型，不能用作表达式。”
• 在下面的代码中我应该在哪里插入anotherForm.Show()？

问题代码：

Dim dr = DirectCast(DataGridViewX1.Rows(e.RowIndex).DataBoundItem, System.Data.DataRowView).Row
frmEncodeDatabase.EncodingCompleteDataSet.Tables("EncodingComplete").ImportRow(dr)
EncodingCompleteDataSetTableAdapters.EncodingCompleteTableAdapter.Update(EncodingCompleteDataSet, "EncodingComplete")

问候， 编码源

编辑：杰森·福克纳

代码：

For Each Col As DataGridViewColumn In DataGridViewX1.Columns
        frmEncodeDatabase.EncodingCompleteDataGridView.Columns.Add(DirectCast(Col.Clone, DataGridViewColumn))
    Next
    frmEncodeDatabase.EncodingCompleteDataGridView.Rows.Add(DataGridViewX1.Rows(0).Cells.Cast(Of DataGridViewCell).Select(Function(c) c.Value).ToArray)

您的代码（我稍作改动）：

Dim table As DataTable = DirectCast(frmEncodeDatabase.EncodingCompleteDataGridView.DataSource, DataView).Table

    ' Add row 0 to the DataGridViewX1 grid to the table.
    ' This assumes the schema/column names are the same between the two.
    Dim addRow As DataRow = table.NewRow
    For Each Col As DataGridViewColumn In DataGridViewX1.Columns
        addRow(Col.Clone) = frmEncodeDatabase.EncodingCompleteDataGridView.Rows(0).Cells(Col.Clone).Value
    Next

    ' Add the copied row values to the table.
    ' Once we do this, it should appear in the EncodingCompleteDataGridView.
    table.Rows.Add(addRow)

但我在 table As DataTable = DirectCast(frmEncodeDatabase.EncodingCompleteDataGridView.DataSource, DataView).Table 中有一个错误，上面写着

InvalidCastException 未处理：无法转换类型的对象 'System.Windows.Forms.BindingSource' 输入 'System.Data.DataView'。

Answer 1

'This is your new DataGridView

 Dim grdNew As New DataGridView



'This adds the row to your newDataGridView

    For Each item In Me.DataGridView1.Rows

        grdNew.Rows.Add(item)

    Next