日期:2014-05-20 浏览次数:20843 次
'Session("PrintK_Subpoena") 主报表dt1(如果选择多条,则有多条ID的数据)
'Session("dt_Subpoena") 子报表dt2 (如果选择多条,则这里包含有多个ID..的明细)
CrystalReportSource1.ReportDocument.Load(Server.MapPath("CrpK_PrintView.rpt"))
CrystalReportSource1.ReportDocument.SetDataSource(CType(Session("PrintK_Subpoena"), Data.DataTable))
CrystalReportSource1.ReportDocument.Subreports("CrpSubPort.rpt").SetDataSource(CType(Session("dt_Subpoena"), Data.DataTable))
CrystalReportSource1.DataBind()
CrystalReportViewer1.ReportSource = CrystalReportSource1
CrystalReportViewer1.DataBind()