Dim dt As DataTable = (bsData2.Current).DataView.ToTable()
 
        Dim ucRpt As New UC_Report
        ucRpt.Name = "ucRpt"
        ucRpt.Reportname = "OffeneAuftraege.rptMengenReport.rdlc"
        ucRpt.ReportDatatable = dt
        ucRpt.ReportDatasetname = "DataSet1_Bereichsmengen"
 
        ucRpt.ReportFilter = Nothing
        ucRpt.Dock = DockStyle.Fill
 
        '-----------
        ucRpt.p_Load()
        '-----------
        ucRpt.WindowState = FormWindowState.Maximized
        ucRpt.Show()

Me.ReportViewer1.Reset()
            Me.ReportViewer1.ShowProgress = True
            Me.ReportViewer1.ShowRefreshButton = False
            Me.ReportViewer1.ProcessingMode = ProcessingMode.Local
            Me.ReportViewer1.LocalReport.EnableExternalImages = True
 
            'Dim oResStream As System.IO.Stream
            'oResStream = 
            ' System.Reflection.Assembly.GetExecutingAssembly.GetManifestResour
            ' ceStream(m_Reportname)
            'Me.ReportViewer1.LocalReport.LoadReportDefinition(oResStream)
 
            ReportViewer1.LocalReport.ReportEmbeddedResource = m_Reportname
 
            Me.ReportViewer1.LocalReport.DataSources.Clear()
            Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource( _
              m_ReportDatasetname, m_ReportDatatable))
 
            Dim oRepParmsList As New System.Collections.Generic.List(Of _
              ReportParameter)
            oRepParmsList.Add(New ReportParameter("FilterText", m_ReportFilter))
            If Not IsNothing(oRepParmsList) Then
                Me.ReportViewer1.LocalReport.SetParameters(oRepParmsList)
            End If
 
            'Me.ReportViewer1.LocalReport.Refresh()
            Me.ReportViewer1.RefreshReport()
            'Me.ReportViewer1.Refresh()