Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim oCurrencyManager As CurrencyManager = CType(DataGridView1.BindingContext(DataGridView1.DataSource), CurrencyManager)
        'Dim oCurrencyManager2 As CurrencyManager = CType(DataGridView2.BindingContext(DataGridView2.DataSource), CurrencyManager)

        Dim rowview1 As DataRowView
        Dim rowview2 As DataRowView
        Dim rowview3 As DataRowView
        Dim datarow1 As DataRow
        Dim datarow2 As DataRow
        Dim datarow3 As DataRow
        Dim rowfiglie As DataRow()

        rowview1 = oCurrencyManager.Current

        datarow1 = rowview1.Row
        rowfiglie = datarow1.GetChildRows("rel_TAB1_TAB2")

        bsTAB1.AddNew()
        rowview2 = bsTAB1.Current
        datarow2 = rowview2.Row
        datarow2("note") = datarow1.Item("note")
        bsTAB1.EndEdit()

        For Each rowrefresh As DataRow In rowfiglie
            bsTAB2.AddNew()
            rowview3 = bsTAB2.Current
            datarow3 = rowview3.Row
            datarow3("note") = rowrefresh.Item("note")
            datarow3("versione") = rowrefresh.Item("versione")
            bsTAB2.EndEdit()
    
        Next

  End Sub