Relazione tra due tabelle dataset in datagridview

    Private Sub caricaschedina()
        C59Coll = Read_record.CaricaSchedine1(ObjC59)
        MovimentiDettaglio = New DataSet1.Movimenti_dettDataTable
        For i As Integer = 0 To C59Coll.Count - 1
            MovimentiDettaglioMyRow = CType(MovimentiDettaglio.NewRow, DataSet1.Movimenti_dettRow)
            MovimentiDettaglioMyRow.id = C59Coll.Item(i).IdDataBase
            MovimentiDettaglioMyRow.Progschedina = C59Coll.Item(i).NumeroSchedina
            REM-----------------------------
            MovimentiDettaglioMyRow.codalbergo = C59Coll.Item(i).CodAlbergo
            MovimentiDettaglioMyRow.codcomalbergo = C59Coll.Item(i).CodComAlbergo
            MovimentiDettaglioMyRow.DataArrivo = C59Coll.Item(i).DataArrivo
            'MovimentiDettaglioMyRow.DataPartenza = C59Coll.Item(i).DataPartenza
            MovimentiDettaglioMyRow.Stato = C59Coll.Item(i).StatoResidenza
            MovimentiDettaglioMyRow.Comune = C59Coll.Item(i).ComuneResidenza
            MovimentiDettaglioMyRow.Gruppo = C59Coll.Item(i).DescrizioneGruppo
            MovimentiDettaglio.Rows.Add(MovimentiDettaglioMyRow)
        Next i
        REM CARICO I DATI RAGGRUPPANDOLI
        Movimenti = New DataSet1.MovimentiDataTable
        For t As Integer = 1 To 2
            MovimentiMyRow = CType(Movimenti.NewRow, DataSet1.MovimentiRow)
            MovimentiMyRow.Progschedina = t + 1
            MovimentiMyRow.nrcomp = "1"
            MovimentiMyRow.DataArrivo = "22/07/2008"
            'MovimentiMyRow.DataPartenza = MovimentiDettaglioMyRow.DataPartenza
            MovimentiMyRow.Stato = "FRANCIA"
            MovimentiMyRow.Comune = ""
            MovimentiMyRow.Gruppo = "NO GRUPPO"
            Movimenti.Rows.Add(MovimentiMyRow)
        Next
        ds.Merge(MovimentiDettaglio)
        ds.Merge(Movimenti)
        Me.DataGridView1.DataSource = ds
        Me.DataGridView1.DataMember = "Movimenti"
        Dim data_relation As New DataRelation("Dettaglio movimenti", _
            ds.Tables("movimenti").Columns("progschedina"), _
            ds.Tables("movimenti_dett").Columns("progschedina"))
        ds.Relations.Add(data_relation)
    End Sub

1280x1024 223Kb