【发布时间】:2019-05-01 04:37:58
【问题描述】:
我正在尝试向 Crystal Report 添加两个数据表, 我在水晶报表中插入了两个子报表,并添加了一个包含两个数据表的数据集,但是如何通过代码将两个数据表传递给子报表。
注意: 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()
【问题讨论】: