, , , .
, , SubreportProcessing , . :
Dim rpDataSource As New ReportDataSource("sourceMain", myDataTable1)
Dim rpDataSourceSub As New ReportDataSource("sourceSub", myDataTable2)
ReportViewer1.ProcessingMode = ProcessingMode.Local
ReportViewer1.LocalReport.EnableHyperlinks = False
ReportViewer1.Reset()
Me.ReportViewer1.LocalReport.ExecuteReportInCurrentAppDomain(AppDomain.CurrentDomain.Evidence)
ReportViewer1.LocalReport.ReportPath = "Reports\report1.rdlc"
ReportViewer1.LocalReport.DisplayName = "Report" + Today.ToString("dd-MM-yyyy")
ReportViewer1.LocalReport.Refresh()
If Not ReportViewer1.LocalReport.DataSources.Contains(rpDataSource) Then
ReportViewer1.LocalReport.DataSources.Add(rpDataSource)
End If
If Not ReportViewer1.LocalReport.DataSources.Contains(rpDataSourceSub) Then
ReportViewer1.LocalReport.DataSources.Add(rpDataSourceSub)
End If
AddHandler Me.ReportViewer1.LocalReport.SubreportProcessing, AddressOf Me.SetSubDataSource
Me.ReportViewer1.LocalReport.Refresh()
AddHandler, . , -, .