Как добавить две таблицы данных в один Crystal Report?

Question

Я пытаюсь добавить две таблицы данных в Crystal Report, Я вставляю два подчиненных отчета в свой кристаллический отчет, и я добавил 1 набор данных, который содержит две таблицы данных, но как передать две таблицы данных в подчиненный отчет по коду.

Обратите внимание: 2 таблицы данных генерируются по запросу, а не по таблице из базы данных.

        Dim Stmt1 As String = "select C_Code,C_name,Units from Courses where St_year like 'First' and C_Department like '%" & Label16.Text & "%' "
        Dim adp1 As New OleDbDataAdapter(Stmt1, con)
        Dim ds1 As New DataSet
        adp1.Fill(ds1)
        Dim dt1 = ds1.Tables(0)

        Dim Stmt2 As String = "select C_Code,C_name,Units from Courses where St_year like 'Second' and C_Department like '%" & Label16.Text & "%' "
        Dim adp2 As New OleDbDataAdapter(Stmt2, con)
        Dim ds2 As New DataSet
        adp2.Fill(ds2)
        Dim dt2 = ds2.Tables(0)

        Dim reportDocument As CrystalDecisions.CrystalReports.Engine.ReportDocument
        reportDocument = New RptResultsCR

        reportDocument.Subreports("Subreport1").SetDataSource(dt1)
        reportDocument.Subreports("Subreport2").SetDataSource(dt2)

        RptCourse.CrystalReportViewer1.ReportSource = reportDocument

        RptCourse.ShowDialog()

Answer 1

Использовать следующую строку

RptDocument.Subreports(0).SetDataSource(ds1.Tables(0))