Private DettaglioMov As DataSet1.DettaglioMovDataTable
    Private DettaglioMovMyRow As DataSet1.DettaglioMovRow
    Private Movimenti As DataSet1.MovimentiDataTable
    Private MovimentiMyRow As DataSet1.MovimentiRow
    Private ds As New DataSet

 ObjC59.CodAlbergo = 1000
        ObjC59.CodComAlbergo = 60038
        ObjC59.DataElaborazione = CDate("24/09/2008")
        C59Coll = Read_record.CaricaSchedine(ObjC59)
        DettaglioMov = New DataSet1.DettaglioMovDataTable
        For i As Integer = 0 To C59Coll.Count - 1
            DettaglioMovMyRow = CType(DettaglioMov.NewRow, DataSet1.DettaglioMovRow)
            If C59Coll.Item(i).Tipostato = "A" Then
                DettaglioMovMyRow.progschedina = 4
                DettaglioMovMyRow.nrcomp = C59Coll.Item(i).NumeroComponenti
                DettaglioMovMyRow.statoresidenza = C59Coll.Item(i).StatoResidenza
                DettaglioMovMyRow.comune = C59Coll.Item(i).ComuneResidenza
                DettaglioMovMyRow.gruppo = C59Coll.Item(i).DescrizioneGruppo
                DettaglioMovMyRow.idstato = C59Coll.Item(i).CodStato_Res
                DettaglioMovMyRow.idcomune = C59Coll.Item(i).CodComune
                DettaglioMovMyRow.idgruppo = C59Coll.Item(i).CodiceGruppo
                DettaglioMov.Rows.Add(DettaglioMovMyRow)
            End If
        Next i
        ds.Merge(DettaglioMov)

        ObjC59.CodAlbergo = 1000
        ObjC59.CodComAlbergo = 60038
        ObjC59.NumeroSchedina = 4
        C59Coll = Read_record.CaricaSchedine1(ObjC59)
        Movimenti = New DataSet1.MovimentiDataTable
        For i As Integer = 0 To C59Coll.Count - 1
            MovimentiMyRow = CType(Movimenti.NewRow, DataSet1.MovimentiRow)
            MovimentiMyRow.progschedina = C59Coll.Item(i).NumeroSchedina
            MovimentiMyRow.DataArrivo = CDate(C59Coll.Item(i).DataArrivo)
            MovimentiMyRow.DataPartenza = CDate(C59Coll.Item(i).DataPartenza)
            MovimentiMyRow.Stato = C59Coll.Item(i).StatoResidenza
            MovimentiMyRow.Comune = C59Coll.Item(i).ComuneResidenza
            MovimentiMyRow.idstato = C59Coll.Item(i).CodStato_Res
            MovimentiMyRow.idcomune = C59Coll.Item(i).CodComune
            MovimentiMyRow.idgruppo = C59Coll.Item(i).CodiceGruppo
            Movimenti.Rows.Add(MovimentiMyRow)
        Next i
        ds.Merge(Movimenti)


        Dim Parent As DataColumn = ds.Tables("DettaglioMov").Columns("progschedina")
        Dim Child As DataColumn = ds.Tables("Movimenti").Columns("progschedina")
        Dim CustomerRelation As DataRelation = New DataRelation("CustomerRelation", Parent, Child, False)
        ds.Relations.Add(CustomerRelation)
        DataGridView1.DataSource = ds
        Me.DataGridView1.DataMember = "DettaglioMov"