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的格式就行了。