Jag försöker få till det här med tabeller och datagrid men har kört fast.

I ett test/övnings projekt har jag ett formulär med 2 datagrid fält och 2 knappar.
Sedan skapar jag 2 tabeller när formuläret öppnas och kopplar en tabell till varje datagrid.
Med knapparna är det tenkt att man ska koppiera den ena tabellen till den andra så att båda tabellerna får identiskt innehåll,
kolumner och rader med data.
Datagrid fälten är till för inmatning till tabellerna och se dess innehåll.

När jag klickar på mina knappar händer inget i mina datagrid, varför gör det inte det?
Överförs inte all data från datagriden till tabellen när man skriver in den?

Här är min kod:

Dim Tabell1 As New DataTable
    Dim Tabell2 As New DataTable

    Private Sub DataGread_Tabeller_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Ladda 2 tabeller med kolumner
        Tabell1.Columns.Add("Uppgift", Type.GetType("System.String"))
        Tabell1.Columns.Add("Ansvarig", Type.GetType("System.String"))
        Tabell1.Columns.Add("Tillfrågad", Type.GetType("System.Boolean"))
        Tabell1.Columns("Tillfrågad").DefaultValue = False


        Tabell2.Columns.Add("Uppgift 2", Type.GetType("System.String"))
        Tabell2.Columns.Add("Ansvarig 2", Type.GetType("System.String"))
        Tabell2.Columns.Add("Tillfrågad", Type.GetType("System.Boolean"))

        DataGrid1.DataSource = Tabell1
        DataGrid2.DataSource = Tabell2

        'datagread egenskaper
        Dim datagreadStil As New DataGridTableStyle
        Dim columnStil As New DataGridTextBoxColumn

        'alternera rad fergerna
        datagreadStil.AlternatingBackColor = Color.Lavender

        'kolumn (1) egenskap
        columnStil.MappingName = "Uppgift"
        columnStil.HeaderText = columnStil.MappingName
        columnStil.Width = 100
        columnStil.NullText = ""
        'adderatill datarrid stilen
        datagreadStil.GridColumnStyles.Add(columnStil)
        'kolumn (2) egenskap
        columnStil = New DataGridTextBoxColumn
        columnStil.MappingName = "Ansvarig"
        columnStil.HeaderText = columnStil.MappingName
        columnStil.Width = 200
        columnStil.NullText = ""
        'adderatill datarrid stilen
        datagreadStil.GridColumnStyles.Add(columnStil)
        'kolumn (3) egenskap
        Dim columnBoolStil = New DataGridBoolColumn
        columnBoolStil.MappingName = "Tillfrågad"
        columnBoolStil.HeaderText = columnBoolStil.MappingName
        columnBoolStil.Width = 75
        columnBoolStil.AllowNull = False
        'adderatill datarrid stilen
        datagreadStil.GridColumnStyles.Add(columnBoolStil)
      


        'applicera hela formateringen
        DataGrid1.TableStyles.Add(datagreadStil)



    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Tabell2 = Tabell1
        MsgBox("Tabell 2 har fått tabell1:s värden")
        DataGrid1.Update()
        DataGrid2.Update()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Tabell1 = Tabell2
        MsgBox("Tabell 1 har fått tabell2:s värden")
        DataGrid1.Refresh()
        DataGrid2.Refresh()
    End Sub

Är det ingen som vet hur man koppierar en tabell till en annan ink. all data, kolumner & poster?
kan någon ge mej nägot tipps på hur jag ska gå vidare. Felet kanske inte ligger i tabell koppieringen utan i visningen av datan i 2 datagrid.

tacksam för svar
Torgny