Crystal 报告总是要求输入参数值

Question

我在将组合框值传递给 crystal 报告时遇到问题我是 crystal 报告的新手，所以我真的需要你们的帮助！

这是我的代码：

    dir = Path.GetFullPath(dir)
    Dim crParameterFieldDefinitions As ParameterFieldDefinitions
    Dim crParameterFieldDefinition As ParameterFieldDefinition
    Dim crParameterValues As New ParameterValues
    Dim crParameterDiscreteValue As New ParameterDiscreteValue
    Dim reportsfolder As String = Application.StartupPath + "\PrintArea\LoanProdReport.rpt"
    Dim report As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim DS As New DataSet
    Dim query As String
    query = "SELECT * FROM ClientDatabase"
    Dim DA As New SqlDataAdapter(query, jonsqlcon)
    DA.Fill(DS)

    report.Load(reportsfolder)
    report.SetDatabaseLogon(dbSettingsAdder.TBUserID.Text, dbSettingsAdder.tbPassword.Text)
    crParameterFieldDefinitions = report.DataDefinition.ParameterFields
    crParameterFieldDefinition = crParameterFieldDefinitions.Item("YearHeader")
    crParameterValues = crParameterFieldDefinition.CurrentValues
    crParameterDiscreteValue = New ParameterDiscreteValue()
    crParameterDiscreteValue.Value = ComboBoxEx2.SelectedItem.ToString

    crParameterValues.Add(crParameterDiscreteValue)
    crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

    report.SetDataSource(DS.Tables(0))
    LoanProdRpt.CrystalReportViewer1.ReportSource = report
    LoanProdRpt.CrystalReportViewer1.Refresh()

    LoanProdRpt.ShowDialog()

这是我的报告截图

如您所见，我正在尝试将 Combobox 值传递给参数 YearHeader。

如有任何帮助，我们将不胜感激。提前致谢:)

Answer 1

我真傻，我就是这样做的

    dir = Path.GetFullPath(dir)
    Dim crParameterFieldDefinitions As ParameterFieldDefinitions
    Dim crParameterFieldDefinition As ParameterFieldDefinition
    Dim crParameterValues As New ParameterValues
    Dim crParameterDiscreteValue As New ParameterDiscreteValue
    Dim reportsfolder As String = Application.StartupPath + "\PrintArea\LoanProdReport.rpt"
    Dim report As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim DS As New DataSet
    Dim query As String
    query = "SELECT * FROM ClientDatabase"
    Dim DA As New SqlDataAdapter(query, jonsqlcon)
    DA.Fill(DS)

    report.Load(reportsfolder)
    report.SetDatabaseLogon(dbSettingsAdder.TBUserID.Text, dbSettingsAdder.tbPassword.Text)
    report.SetDataSource(DS.Tables(0))

    crParameterFieldDefinitions = report.DataDefinition.ParameterFields
    crParameterFieldDefinition = crParameterFieldDefinitions.Item("YearHeader")
    crParameterValues = crParameterFieldDefinition.CurrentValues
    crParameterDiscreteValue = New ParameterDiscreteValue()
    crParameterDiscreteValue.Value = ComboBoxEx2.SelectedItem.ToString

    crParameterValues.Add(crParameterDiscreteValue)
    crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

    LoanProdRpt.CrystalReportViewer1.ReportSource = report
    LoanProdRpt.CrystalReportViewer1.Refresh()

    LoanProdRpt.ShowDialog()

Crystal 报告总是要求输入参数值

Crystal Report always asking to enter parameter value

vb.net

crystal-reports