bashir_nashi
دوشنبه 20 اسفند 1386, 21:29 عصر
سلام
من برای انتقال بعضی از سطرهای یک جدول به جدول دیگر به یه مشکل برخوردم
برای این کار من از ابتدا تا انتهای جدول اول رو طی می کنم و وقتی به یکی از سطرهای مورد نظر جهت انتقال رسیدم اطلاعات اون رو فیلد به فیلد به جدول دوم انتقال میدم
با این کد :
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.
اگه من بعد از دستور اضافه کردن سطر به جدول دوم دستور آپدیت رو بزارم این مشکل پیش نمیاد ولی فکر نکنم این کار جالبی باشه که بعد از اضافه کردن هر سطر یه بار آپدیت کنم!
منتظر راهنمایی دوستان هستم.
من برای انتقال بعضی از سطرهای یک جدول به جدول دیگر به یه مشکل برخوردم
برای این کار من از ابتدا تا انتهای جدول اول رو طی می کنم و وقتی به یکی از سطرهای مورد نظر جهت انتقال رسیدم اطلاعات اون رو فیلد به فیلد به جدول دوم انتقال میدم
با این کد :
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.
اگه من بعد از دستور اضافه کردن سطر به جدول دوم دستور آپدیت رو بزارم این مشکل پیش نمیاد ولی فکر نکنم این کار جالبی باشه که بعد از اضافه کردن هر سطر یه بار آپدیت کنم!
منتظر راهنمایی دوستان هستم.