انتقال برخی از سطرهای یک جدول به جدول دیگر

[bashir_nashi]

سلام
من برای انتقال بعضی از سطرهای یک جدول به جدول دیگر به یه مشکل برخوردم
برای این کار من از ابتدا تا انتهای جدول اول رو طی می کنم و وقتی به یکی از سطرهای مورد نظر جهت انتقال رسیدم اطلاعات اون رو فیلد به فیلد به جدول دوم انتقال میدم
با این کد :

        Dim row As Data.DataRow = Me.DataDataSet.TFac.NewTFacRow

        Dim i As Integer

        For i = 0 To DataDataSet.TSaleKala.Rows.Count - 1

            If DataDataSet.TSaleKala.Rows(i).Item("fac") = FacNoToFix Then



                row.Item("name") = DataDataSet.TSaleKala.Rows(i).Item("name")

                row.Item("amount") = DataDataSet.TSaleKala.Rows(i).Item("amount")

                row.Item("price") = DataDataSet.TSaleKala.Rows(i).Item("price")



                Me.DataDataSet.TFac.AddTFacRow(row)

             End If

        Next

ولی بعد از کپی کردن اولین سطر در جدول دوم وقتی می خواد سطر دوم رو کپی کنه با این ارور خارج میشه :
This row already belongs to this table.
اگه من بعد از دستور اضافه کردن سطر به جدول دوم دستور آپدیت رو بزارم این مشکل پیش نمیاد ولی فکر نکنم این کار جالبی باشه که بعد از اضافه کردن هر سطر یه بار آپدیت کنم!

منتظر راهنمایی دوستان هستم.

[nasseritemp]

شما بهتره که Data Table دوم رو به Data Source وصل نکنید و ستونها رو خودتون داخل برنامه ایجاد کنید مثلا

Dim dcEmployeeid As DataColumn

dcEmployeeid = dt1.Columns.Add()

[ghafoori]

دوست عزیز کد خود را به این صورت تغییر بدید هر بار row را new کنید

 

      

  Dim i As Integer

Dim row As Data.DataRow

        For i = 0 To DataDataSet.TSaleKala.Rows.Count - 1

            If DataDataSet.TSaleKala.Rows(i).Item("fac") = FacNoToFix Then

row = Me.DataDataSet.TFac.NewTFacRow

                row.Item("name") = DataDataSet.TSaleKala.Rows(i).Item("name")

                row.Item("amount") = DataDataSet.TSaleKala.Rows(i).Item("amount")

                row.Item("price") = DataDataSet.TSaleKala.Rows(i).Item("price")



                Me.DataDataSet.TFac.AddTFacRow(row)

             End If

        Next

[Dariuosh]

ببین اینطوری مشکلت حل میشه؟

For i AsInteger = 0 To DataDataSet.TSaleKala.Rows.Count - 1

If DataDataSet.TSaleKala.Rows(i).Item("fac") = FacNoToFix Then

TFac.ImportRow(DataDataSet.TSaleKala.Rows(i))

EndIf

Next

البته این درصورتی جواب میده که 2تا جدولت یه مدل باشه ها