1つのDataTableから別のDataTableへの行のコピーなし

Question

DataTableから別のものに行をコピーしようとしていますが、データがまだデータベーステーブルに保存されていない行のみコピーします。

本のSQL側は、私は私の第二DataTableに発見し、私のグリッドのDataSourceとして設定された行を追加するとき、それは、しかし、列の正しい数を返します、正常に動作している、表示されたデータがありません行セレクタが表示されているため、追加された行があります。

私は間違って何をしていますか、なぜデータがコピーされないのですか？

lftable = New DataTable 

Try 
    For Each dc As DataColumn In lineTable.Columns 
    lftable.Columns.Add() 
    Next 

    Dim ds As New DataSet 

    For Each row As DataRow In lineTable.Rows 
    Dim da As New OleDbDataAdapter("SELECT * FROM [Order_Freight] WHERE [Order_Number] = ? AND [Product_Code] <> ?", con) 
    da.SelectCommand.Parameters.Add("@num", OleDbType.Integer).Value = orderNum 
    da.SelectCommand.Parameters.Add("@prod", OleDbType.VarChar).Value = row.Item("Product_Code") 
    da.Fill(ds) 

    For Each dr As DataRow In ds.Tables(0).Rows 
     Dim nRow = lftable.Rows.Add() 
     nRow.ItemArray = dr.ItemArray() 
    Next 
Next 

ugProducts.DataSource = lfTable 

DataSource

Answer 1

それを割り当てた後、グリッドのスクリーンショット列を正しく入力します。

For Each dc As DataColumn In lineTable.Columns 
    lftable.Columns.Add(new DataColumn(dc.ColumnName, dc.DataType)); 
Next 

をあなたはあなたが提供することができますRow.Add関数のオーバーロードを使用することができますItemArray直接：

For Each dr As DataRow In ds.Tables(0).Rows 
     lftable.Rows.Add(dr.ItemArray) 
     'nRow.ItemArray = dr.ItemArray() <-- remove 
Next 

Answer 2

の代わりにこのコード：

lftable = lineTable.Clone(); 

そして

For Each dr As DataRow In ds.Tables(0).Rows 
     lftable.Rows.Add(dr.ItemArray) 
    Next