Crystal Report XI R2 总是弹出参数对话框

 

Crystal Report XI R2 总是弹出参数对话框

标签：水晶报表 V11, Crystal Report , 参数对话框 , Parameter Dialog

环境：VB6 SP6 + 水晶报表11版本/CrystalReport XI R2 开发人员版
 
已经用水晶报表软件做好了一个报表，当然是带有参数的报表，想在VB6里显示或打印出来，已经把参数值赋了，EnableParameterPrompting 也设为false了，但是报表的参数对话框还是弹出来需求输入参数值。
代码如下：

'加 CrystalActiveXReportViewer 控件到窗体，名字为：CRViewer

dim CrystalApp As New CRAXDDRT.Application
dim crxTable As CRAXDDRT.DatabaseTable
dim CrystalReport As CRAXDDRT.Report

Set CrystalReport = CrystalApp.OpenReport("c:\report1.rpt")

With CrystalReport

 .EnableParameterPrompting = false
 .ParameterFields(1).AddCurrentValue Val1
 .ParameterFields(2).AddCurrentValue Val2
 .ParameterFields(3).AddCurrentValue Val3

        'connect to database
        For Each crxTable In .Database.Tables
            'crxTable.ConnectBufferString = ConnectionString
            crxTable.ConnectionProperties.DeleteAll
            crxTable.ConnectionProperties.Add "DSN", "DSNName"
            crxTable.ConnectionProperties.Add "Database", "DBName" 'Database Name
            crxTable.ConnectionProperties.Add "User ID", "sa" 'UserID
            crxTable.ConnectionProperties.Add "Password", "123457" 'Pswd
        Next crxTable
 
 .DisplayProgressDialog = False
        .DiscardSavedData

end with

CRViewer.EnableExportButton = True
CRViewer.EnableZoomControl = True
CRViewer.DisplayGroupTree = False
CRViewer.ReportSource = CrystalReport
CRV.EnableInteractiveParameterPrompting = False
CRV.ViewReport

解决方法及原因：

如果是用crystalreport 9.2版本之前的版本，都会弹出参数对话框，请用crystal report XI v11 打开报表文件，然后再保存为版本11的格式就行了。