怎样让水晶报表不提示“输入参数值”，在线等。。。

Question

我做了一个参数字段，我想在程序中给他值，不让他提示输入对话框，怎么办？

Answer 1

crReport.ParameterFields.GetItemByName("參數名").AddCurrentValue (參數值)

Answer 2

ReportObj.Database.SetDataSource Rs
ReportObj.DiscardSavedData
ReportObj.ParameterFields.GetItemByName("ParaName").ClearCurrentValueAndRange  
ReportObj.ParameterFields.GetItemByName("ParaName").AddCurrentValue ("Value")

Answer 3

ReportObj.ParameterFields.GetItemByName("ParaName").AddCurrentValue ("Value")

Answer 4

是不是将参数赋值命令放在DiscardSavedData之前了，放在后面就没有提示框了

Answer 5

'ReportObj是水晶报表对象
dim ReportObj As New CRAXDRT.Report
'Rs是ADO记录集
Dim Rs As ADODB.RecordsetReportObj.Database.SetDataSource Rs
ReportObj.DiscardSavedData
ReportObj.ParameterFields.GetItemByName("ParaName").ClearCurrentValueAndRange  '"ParaName"是报表中设置的那个参数的名字
Call ReportObj.ParameterFields.GetItemByName("ParaName").AddCurrentValue("Value") '给参数传值。
CRViewer1.ReportSource = ReportObj  '为报表控件赋报表源
CRViewer1.ViewReport