منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
بحثت كثيرا قبل طرح السؤال
هذه بداية الكود
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
علما ان اعمدة الاول تزيد واحد عن الثاني
وجزاكم الله خيرا

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

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

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