[سعود]

المثال مرفق

---

طبعا النسخ من dt1 الى dt2
dt1=DataTable1
dt2=DataTable2
وفيه حالتين لـكل من dt1 و dt2 من حيث احتواءها على صفوف .....اطلع على المثال.
ولو حبيت الكلاس هذا هو:

PHP كود :

Imports System.Data.OleDb

Public Class Form1
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
    Dim con As New OleDb.OleDbConnection(str)

    Dim da1 As OleDbDataAdapter, da2 As OleDbDataAdapter
    Dim dt1 As DataTable, dt2 As DataTable

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        gd()
    End Sub

    Dim cm1 As OleDbCommandBuilder, cm2 As OleDbCommandBuilder

    Private Sub gd()
        da1 = New OleDbDataAdapter("select * from tb1", con) : da2 = New OleDbDataAdapter("select * from tb2", con)
        cm1 = New OleDbCommandBuilder(da1) : cm2 = New OleDbCommandBuilder(da2)
        dt1 = New DataTable : dt2 = New DataTable
        da1.Fill(dt1)
        da2.Fill(dt2)

        d1.DataSource = dt1 : d2.DataSource = dt2

        d1.Columns(0).Width = 100 : d2.Columns(0).Width = 100
        d1.Columns(1).Width = 285 : d2.Columns(1).Width = 285

        d1.Columns(0).HeaderText = "الرقم" : d2.Columns(0).HeaderText = "الرقم"
        d1.Columns(1).HeaderText = "الاسم" : d2.Columns(1).HeaderText = "الاسم"

    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        e.Cancel = True

        da1.Update(dt1)



        If dt1.Rows.Count > 0 Then


            If dt2.Rows.Count > 0 Then
                Dim row As DataRow = dt2.Rows(Me.BindingContext(dt2).Position)
                row.BeginEdit()
                row(1) = dt1.Rows(dt1.Rows.Count - 1)(1)
                row.EndEdit()
                da2.Update(dt2)
            Else
                Dim row As DataRow = dt2.NewRow
                row(1) = dt1.Rows(dt1.Rows.Count - 1)(1)
                dt2.Rows.Add(row)
                da2.Update(dt2)

            End If

        End If



        e.Cancel = False
    End Sub
End Class