[samira20]

السلام عليكم
بحثت كثيرا قبل طرح السؤال
هذه بداية الكود
If con2.State = ConnectionState.Closed = False Then con2.Close()
        con2.Open()
        Dim dtp As New OleDbDataAdapter("select * from test", con2)
        Dim ds As New DataSet
        dtp.Fill(ds, "test")
        con2.Close()
        If con1.State = ConnectionState.Closed = False Then con1.Close()
        con1.Open()
        Dim dtp1 As New OleDbDataAdapter("select * from tp1", con1)
        Dim ds1 As New DataSet
        dtp1.Fill(ds1, "tp1")
        con1.Close()
اريد نسخ بيانات من tp1 الى test
علما ان اعمدة الاول تزيد واحد عن الثاني
وجزاكم الله خيرا

[silverlight]

استخدم الأمر Clone
هنا لا تحتاج الي انشاء Dataset جديدة
Dim ds2 as DataSet = ds1.clone

[samira20]

جزاكم الله خيرا
ممكن تعديل الكود ...ما نجح معي

[ابو ليلى]

و عليكم السلام و رحمة الله و بركاته
اختي الكريمة استخدمي الخاصية Copy ثم احذفي العمود المخالف بين الجدولين كما يلي

PHP كود :

       test = tb1.Copy()
        test.Columns.Remove("اسم الحقل المختلف") 


بالتوفيق