Visualizzare più report nello stesso Form e ReportViewer

[g.guido]

Buonasera a tutti, premetto che sono un autodidatta e dopo tanto cercare sono arrivato a questo codice..ma ho un problema con un report, provo a spiegare...
Nel progetto è presente un DataBase di tipo LocaldB, ho inserito un form dove al suo interno c'è il Reportviewer e realizzato due report, questi due report se li inserisco da progetto funzionano perfettamente, ma io verrei potre utilizzare il form per i report e quindi il suo Reportviewer per visualizzare più report e qui arriviuamo al problema, ho provato a leggere tutto quello che sono riuscito a trovare, ma non funziona, utilizzando il codice seguente:

Dim reportDataSource As New Microsoft.Reporting.WinForms.ReportDataSource("Dat abase_GestioneDataSet")

reportDataSource.Name = "DataSet_Lavorazioni"
reportDataSource.Value = "Table_LavorazioniBindingSource" ' "Table_Lavorazioni"

Me.ReportViewer1.LocalReport.ReportPath = "Report_Lavorazione.rdlc"

Me.ReportViewer1.LocalReport.DataSources.Clear()
Me.ReportViewer1.LocalReport.DataSources.Add(repor tDataSource)

Me.ReportViewer1.RefreshReport()


ma quando va in esecuzione non visualizza nulla, pur abilitando il menù di reportviewer, non visualizza nemmeno l'intestazione di pagina,,,,
Qualcuno sa dirmi il motivo?.....dove sbaglio?


Grazie
Guido

[g.guido]

Ho risolto il problema, sia utilizzando un report che fa riferimento ad una sola tabella sia che faccia riferimento a due tabelle.

---------------------------------------------------------
Private Sub FormReport_ToolStripButton_Click(sender As Object, e As EventArgs) Handles FormReport_ToolStripButton.Click
'frm_Anagrafica.Table_AnagraficaTableAdapter.Fill( Me.Database_GestioneDataSet.Table_Anagrafica)
'Definisco il form
Dim form_rv As New frm_Report
'Reset del ReportViever
form_rv.ReportViewer1.Reset()


'Va a trovare il report ricercato
form_rv.ReportViewer1.LocalReport.ReportPath = "ReportClienti.rdlc"


'Si crea il DataSouce, specificando come parametri:
'Il primo valore da inserire come stringa di testo è il DataSet che viene inserito nella
'maschera di creazione del report, prima schermata di creazione.
'Il secondo valore da inserire è l'istanza che del DataBase dove risiede la tabella che viene
'utilizzata nel report.
Dim dReportDataSource As New ReportDataSource("DataSetDitta", form_rv.Table_AnagraficaBindingSource)
Dim cReportDataSource As New ReportDataSource("DataSetClienti", form_rv.Table_ClientiBindingSource)
'Ripulisce
form_rv.ReportViewer1.LocalReport.DataSources.Clea r()


'Aggiunge l'oggetto al DataSouce
form_rv.ReportViewer1.LocalReport.DataSources.Add( dReportDataSource)
form_rv.ReportViewer1.LocalReport.DataSources.Add( cReportDataSource)


'Refresh del report.
form_rv.ReportViewer1.RefreshReport()
'esecuzione del form di Report
form_rv.ShowDialog()


End Sub
----------------------------------------------------------------------
Private Sub ReportLavorazioni_ToolStripButton_Click(sender As Object, e As EventArgs) Handles ReportLavorazioni_ToolStripButton.Click

'Definisco il form
Dim form_rv As New frm_Report


'Reset del ReportViever
form_rv.ReportViewer1.Reset()


'Va a trovare il report ricercato
form_rv.ReportViewer1.LocalReport.ReportPath = "Report_Lavorazione.rdlc"


'Si crea il DataSouce, specificando come parametri:
'Il primo valore da inserire come stringa di testo è il DataSet che viene inserito nella
'maschera di creazione del report, prima schermata di creazione.
'Il secondo valore da inserire è l'istanza che del DataBase dove risiede la tabella che viene
'utilizzata.
Dim sReportDataSource As New ReportDataSource("DataSet_Lavorazioni", form_rv.Table_LavorazioniBindingSource) '"DataSet_Lavorazioni""DataSet_Lavorazioni"


'Ripulisce
form_rv.ReportViewer1.LocalReport.DataSources.Clea r()


'Aggiunge l'oggetto al DataSouce
form_rv.ReportViewer1.LocalReport.DataSources.Add( sReportDataSource)


'Refresh del report.
form_rv.ReportViewer1.RefreshReport()


'esecuzione del form di Report
form_rv.ShowDialog()
End Sub
-----------------------------------------------------------------

Guido