Crystal 보고서가 항상 매개 변수 값을 입력하라고 요청했습니다.

Question

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

여기 당신은 내가 매개 변수 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() 

처럼했다