Dim dt As DataTable = (bsData.Current).DataView.ToTable()
 
        Dim ucRpt As New UC_Report
        ucRpt.Name = "ucRpt"
        ucRpt.Reportname = "SKTPA.rptProgramme.rdlc"
        ucRpt.ReportDatatable = dt
        ucRpt.ReportDatasetname = "DsTPA_Programme"
        ucRpt.ReportDatatable2 = dt
        ucRpt.ReportDatasetname2 = "DsTPA_ProgFarb"
 
        ucRpt.ReportFilter = moAuslauf
        ucRpt.ReportFilter2 = logo
        ucRpt.ReportFilter3 = tscbLinien.SelectedItem
        'bsData.Filter
        ucRpt.Dock = DockStyle.Fill
 
        '-----------
        ucRpt.p_Load()
        '-----------
 
        ' Form
        Dim frm As New Form
        frm.Name = "frmRpt"
        frm.Text = "TPA Programmdetails"
        frm.Controls.Add(ucRpt)
        frm.WindowState = FormWindowState.Maximized
        frm.Show()

Private m_ReportDatatable As DataTable
    Public WriteOnly Property ReportDatatable() As DataTable
        Set(ByVal value As DataTable)
            m_ReportDatatable = value
        End Set
    End Property
 
    Private m_ReportDatatable2 As DataTable
    Public WriteOnly Property ReportDatatable2() As DataTable
        Set(ByVal value As DataTable)
            m_ReportDatatable2 = value
        End Set
    End Property
 
    Private m_ReportDatasetname As String
    Public WriteOnly Property ReportDatasetname() As String
        Set(ByVal value As String)
            m_ReportDatasetname = value
        End Set
    End Property
 
    Private m_ReportDatasetname2 As String
    Public WriteOnly Property ReportDatasetname2() As String
        Set(ByVal value As String)
            m_ReportDatasetname2 = value
        End Set
    End Property