Crystalレポートは常にパラメータ値を入力するように頼んでいます

Question

私はクリスタルレポートにコンボボックスの値を渡す際に問題があります。私は本当にあなたの助けが必要ですので、ここ

は私のコードです：あなたは、私は、パラメータYearHeaderにコンボボックスの値を渡すためにしようとしています見ることができるよう

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() 

、ここでは私のレポート

のスクリーンショットです。

ご協力いただければ幸いです。私のどのように愚かな

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() 

のようにそれをやりました