آمل شرح هذا الكود وهو لنسخ الصفوف من datatable1 الى datatable2

يقوم بادخال كل صف في sourceTable.Rows

الي destinationTable.Rows

وللفحص

For Each dr As DataRow In sourceTable.Rows
   r = destinationTable.NewRow
if dr("chk") then
   r("Name") = dr("Name")
   r("City") = dr("City")
   r("Cost") = dr("Cost")
   destinationTable.Rows.Add(r)
end if
Next

chk هو الحقل المراد فحصه

الف شكر اخي الفاضل كريم وساجرب الكود وانظر ما سيحدث :)

عفوا اخي كريم ولكن هل المقصود sourceTable. هو اسم data table وهذا ما أظن فإن كان ذلك صحيح فآمل التكرم بإرفاق كامل الكود كما رددت علي في السؤال الموجود في قسم Ado ولك مني جزيل الشكر

لا يوجد كود كامل انما تم التعديل علي الاكود الاول الذي تم وضعة من خلالك

sourceTable هم اسم الجدول الذي سيتم نسخ البيانات منه ، أما destinationTable فهو اسم الجدول الذي سيتم النسخ إليه (Source = مصدر ) (Destination = وجهه )