Disable/Remove Enter Parameter Values Window in Crystal Report

[awmantonio]

I am trying to make a report which gets its data from a windows form's textboxes. My code works fine but upon display of the report, a window always appear asking to enter parameter values. How can I bypass or remove this window? Here is my code:

Dim report As rptVoucherRecei pt = New rptVoucherRecei pt
Dim crParameterDisc reteValue As ParameterDiscre teValue
Dim crParameterFiel dDefinitions As ParameterFieldD efinitions
Dim crParameterFiel dLocation As ParameterFieldD efinition
Dim crParameterValu es As ParameterValues

crParameterFiel dDefinitions = report.DataDefi nition.Paramete rFields

crParameterFiel dLocation = crParameterFiel dDefinitions.It em("parAmtWords ")
crParameterValu es = crParameterFiel dLocation.Curre ntValues
crParameterDisc reteValue = New CrystalDecision s.Shared.Parame terDiscreteValu e
crParameterDisc reteValue.Value = frmPremPay.txtA mtWords.Text
crParameterValu es.Add(crParame terDiscreteValu e)
crParameterFiel dLocation.Apply CurrentValues(c rParameterValue s)

crParameterFiel dLocation = crParameterFiel dDefinitions.It em("parPayAmt" )
crParameterValu es = crParameterFiel dLocation.Curre ntValues
crParameterDisc reteValue = New CrystalDecision s.Shared.Parame terDiscreteValu e
crParameterDisc reteValue.Value = frmPremPay.txtP remPayPayAmt.Te xt
crParameterValu es.Add(crParame terDiscreteValu e)
crParameterFiel dLocation.Apply CurrentValues(c rParameterValue s)

CrystalReportVi ewer1.ReportSou rce = report

[awmantonio]

This thread is solved.

[linkman]

Dear awmantonio
can you show me how to solve it? I have same problem. Thank alot

[awmantonio]

Re: CR Parameter Values Solution (linkman)

Hi! I used this code which worked a lot better:

Imports CrystalDecision s.CrystalReport s.Engine
Imports CrystalDecision s.ReportSource
Imports CrystalDecision s.Shared

Private Sub Form1Rpt_Load(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load


Dim ProjectReport As New ReportDocument
ProjectReport.L oad(Application .StartupPath & "\rptProjectRpt .rpt")

Dim report As rptProjectRpt = New rptProjectRpt
Dim crParameterDisc reteValue As ParameterDiscre teValue
Dim crParameterFiel dDefinitions As ParameterFieldD efinitions
Dim crParameterFiel dLocation As ParameterFieldD efinition
Dim crParameterValu es As ParameterValues
crParameterFiel dDefinitions = report.DataDefi nition.Paramete rFields

crParameterFiel dLocation = crParameterFiel dDefinitions.It em("parText1")
crParameterValu es = crParameterFiel dLocation.Curre ntValues
crParameterDisc reteValue = New CrystalDecision s.Shared.Parame terDiscreteValu e
crParameterDisc reteValue.Value = Form1.Text1.Tex t
crParameterValu es.Add(crParame terDiscreteValu e)
crParameterFiel dLocation.Apply CurrentValues(c rParameterValue s)

crParameterValu es.Add(crParame terDiscreteValu e)
crParameterFiel dLocation.Apply CurrentValues(c rParameterValue s)

crvProjectRpt.R eportSource = report


End Sub

Cheers!

[proxenet]

Excellent

You saved my life. It worked!

Hi! I used this code which worked a lot better:

Imports CrystalDecision s.CrystalReport s.Engine
Imports CrystalDecision s.ReportSource
Imports CrystalDecision s.Shared

Private Sub Form1Rpt_Load(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load


Dim ProjectReport As New ReportDocument
ProjectReport.L oad(Application .StartupPath & "\rptProjectRpt .rpt")

Dim report As rptProjectRpt = New rptProjectRpt
Dim crParameterDisc reteValue As ParameterDiscre teValue
Dim crParameterFiel dDefinitions As ParameterFieldD efinitions
Dim crParameterFiel dLocation As ParameterFieldD efinition
Dim crParameterValu es As ParameterValues
crParameterFiel dDefinitions = report.DataDefi nition.Paramete rFields

crParameterFiel dLocation = crParameterFiel dDefinitions.It em("parText1")
crParameterValu es = crParameterFiel dLocation.Curre ntValues
crParameterDisc reteValue = New CrystalDecision s.Shared.Parame terDiscreteValu e
crParameterDisc reteValue.Value = Form1.Text1.Tex t
crParameterValu es.Add(crParame terDiscreteValu e)
crParameterFiel dLocation.Apply CurrentValues(c rParameterValue s)

crParameterValu es.Add(crParame terDiscreteValu e)
crParameterFiel dLocation.Apply CurrentValues(c rParameterValue s)

crvProjectRpt.R eportSource = report


End Sub

Cheers!

[Jincy7]

Thank you

though it's an old answer...this actually solved my problem...
"OLD IS GOLD" ... thank you

Hi! I used this code which worked a lot better:

Imports CrystalDecision s.CrystalReport s.Engine
Imports CrystalDecision s.ReportSource
Imports CrystalDecision s.Shared

Private Sub Form1Rpt_Load(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load


Dim ProjectReport As New ReportDocument
ProjectReport.L oad(Application .StartupPath & "\rptProjectRpt .rpt")

Dim report As rptProjectRpt = New rptProjectRpt
Dim crParameterDisc reteValue As ParameterDiscre teValue
Dim crParameterFiel dDefinitions As ParameterFieldD efinitions
Dim crParameterFiel dLocation As ParameterFieldD efinition
Dim crParameterValu es As ParameterValues
crParameterFiel dDefinitions = report.DataDefi nition.Paramete rFields

crParameterFiel dLocation = crParameterFiel dDefinitions.It em("parText1")
crParameterValu es = crParameterFiel dLocation.Curre ntValues
crParameterDisc reteValue = New CrystalDecision s.Shared.Parame terDiscreteValu e
crParameterDisc reteValue.Value = Form1.Text1.Tex t
crParameterValu es.Add(crParame terDiscreteValu e)
crParameterFiel dLocation.Apply CurrentValues(c rParameterValue s)

crParameterValu es.Add(crParame terDiscreteValu e)
crParameterFiel dLocation.Apply CurrentValues(c rParameterValue s)

crvProjectRpt.R eportSource = report


End Sub

Cheers!