この行は既に別のテーブルに属しています

以下のソースで、「この行は既に別のテーブルに属しています。」というエラーが出てしまいますが、対処方法がわかりません。

どのようにしたらよろしいでしょうか？
VS2003のVBです。

　　　　Dim Table1 As DataTable = Me.DS1.Tables("データベース１")
　　　　Dim Table2 As DataTable = Me.DS1.Tables("データベース２")
　　　　Dim Row1 As DataRow
　　　　Dim Row2 As DataRow
　　　　Row1("データ１") = 1
　　　　Row1("データ２") = 2
　　　　Row1("データ３") = 3
　　　　Row2("データ１") = 2
　　　　Row2("データ２") = 3
　　　　Row2("データ３") = 4

　　　　Table2.Rows.Add(Row2) ←ここでエラー
　　　　Table1.Rows.Add(Row1)

'System.ArgumentException' のハンドルされていない例外が system.windows.forms.dll で発生しました。

追加情報 : この行は既に別のテーブルに属しています。

No.2 ベストアンサー 回答者： naganaga_001 回答日時： 2006/07/31 22:41

お世話になります。

> Dim Row1 As DataRow
> Row1("データ１") = 1
これは、実行時に例外（NullReferenceException）が発生するはずです。

> Row1("データ１") = 1
こちらを実行する前に、
Row2 = Table1.Rows(0) とか
Row2 = Table1.NewRow とかやってると仮定して、
2 つの DataTable のレイアウトが全く同じならば
DataTable.ImportRow メソッド
を使われてはいかがでしょうか。

Dim dt As DataTable = New DataTable
dt.Columns.Add("Field1", GetType(String))
dt.Columns.Add("Field2", GetType(String))
dt.Columns.Add("Field3", GetType(String))
dt.Rows.Add(New String() {"りんご", "みかん", "ばなな"})
dt.Rows.Add(New String() {"おかし", "ごはん", "おちゃ"})

Dim copyToDt As DataTable = dt.Clone()
For Each row As DataRow In dt.Rows
　　If Convert.ToString(row("Field1")) = "おかし" Then
　　　　copyToDt.ImportRow(row)
　　End If
Next

参考URL：http://msdn.microsoft.com/library/ja/default.asp …

この回答へのお礼

この方法でできました。ありがとうございます。

お礼日時：2006/08/04 01:14

No.1 回答者： ape5 回答日時： 2006/07/30 12:34

検証環境：WinXP SP2 VisualStudio.NET 2002

同じコードでやったのですが、ymdaさんと違うところでエラーが出ました。
で、エラーを解除するために以下のコードを追加しました。
　　　　・・・・・・・・
　　　　Dim Row2 As DataRow
--------------------------------------
Row1 = Table1.NewRow()　ここです
Row2 = Table2.NewRow()
--------------------------------------
　　　　Row1("データ１") = 1
　　　　Row1("データ２") = 2
　　　　・・・・・・・・・

これで、エラーは無くて動作します。
同じ環境ではないので、なんともいえませんが、よろしければ試してみてください。