'''数据源的主从表的关联需要设定
Dim strXsd As String = Server.MapPath("../rep/aa.xsd")
Dim dst as New DataSet()
'数据表生成
dst.ReadXmlSchema(strXsd)
'数据取得 --省略
....
Dim customerReport As New ReportDocument()
'报表载入
Dim reportPath As String = Server.MapPath("../rep/aa.rpt")
customerReport.Load(reportPath)
'主报表数据源设定
customerReport.SetDataSource(dst)
'子报表数据源设定
customerReport.Subreports(0).SetDataSource(dst)
Me.CrystalReportViewer1.ReportSource = customerReport
Me.CrystalReportViewer1.DataBind()