'定义报表
Dim Rpt As New CrystalReport_会员分析 'CrystalReport_会员分析是设计好的报表
'填充数据
Rpt.SetDataSource(ds.Tables(0)) 'ds包含数据的数据集合
'显示水晶报表
Me.CrystalReportViewer1.ReportSource = Rpt 'CrystalReportViewer1水晶报表浏览器
'定义报表
Dim Rpt As New CrystalReport_会员分析 'CrystalReport_会员分析是设计好的报表
'填充数据
Rpt.SetDataSource(ds.Tables(0)) 'ds包含数据的数据集合
'显示水晶报表
Me.CrystalReportViewer1.ReportSource = Rpt 'CrystalReportViewer1水晶报表浏览器