在程序中怎么调用水晶报表9

Question

我用的是SQL数据库，水晶报表九，在VB程序中怎样调用水晶报表作好的模板，在调用的时候如何使水晶报表读取附合查询条件的数据！如果有例子就更好了！

Answer 1

在装完VB后再安装水晶报表,在VB界面下的"工程"下就会多一项"添加Crystal Report 9"项,点击后选"来源于现有的报表",按提示加入报表后,同时会加入一个新的窗体,再在该窗体的Load中加入以下代码,注意还要引用水晶报表的Crystal Report 9 ActiveX Designer RunTime Library和Crystal Report 9 ActiveX Designer Run Time LibraryDim CryApp As New CRAXDDRT.Application
Dim Report As CRAXDDRT.Report
Dim cnn1 As New ADODB.Connection
Dim ADORS As New ADODB.RecordsetIf ADORS.State = 1 Then
    ADORS.Close
    Set ADORS = Nothing
End If
Set Report = CryApp.OpenReport(App.Path & "\GongYi.rpt")
cnn1.Open Strcnn
ADORS.Open SelectStr, cnn1, adOpenDynamic, adLockBatchOptimistic
Report.Database.SetDataSource ADORS                     'SQL查询语句,,查找符合条件的记录
Report.DiscardSavedData
Me.CRViewer.ReportSource = Report
Me.CRViewer.ViewReport