jamie123
July 8th, 2008, 05:32 PM
I've been searching everywhere and testing different things but nothing seems to work so far. I'm using CR2008, standalone, I have one parameter which I set the "Optional Prompt" property to True. I declare the parameter in my vb.net code using the following:
Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles myCrystalReportViewer.Load
Me.FinancialTableAdapter.Fill(ds.Financial)
Dim rpt As New Report111
Dim crParameterDiscreteValue As ParameterDiscreteValue
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldLocation As ParameterFieldDefinition
Dim crParameterValues As ParameterValues
crParameterFieldDefinitions = rpt.DataDefinition.ParameterFields
crParameterFieldLocation = crParameterFieldDefinitions.Item("intPID")
crParameterValues = crParameterFieldLocation.CurrentValues
crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
crParameterDiscreteValue.Value = Form1.intPID
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldLocation.ApplyCurrentValues(crParameterValues)
rpt.SetDataSource(ds)
Me.myCrystalReportViewer.ReportSource = rpt
I've tried setting "crParameterFieldLocation.HasCurrentValue = True"
But this gives me a "Property 'HasCurrentValue' is read-only."
Anyway on how to disable the prompts without using HasCurrentValue, or anyway to disable read-only on that property?
Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles myCrystalReportViewer.Load
Me.FinancialTableAdapter.Fill(ds.Financial)
Dim rpt As New Report111
Dim crParameterDiscreteValue As ParameterDiscreteValue
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldLocation As ParameterFieldDefinition
Dim crParameterValues As ParameterValues
crParameterFieldDefinitions = rpt.DataDefinition.ParameterFields
crParameterFieldLocation = crParameterFieldDefinitions.Item("intPID")
crParameterValues = crParameterFieldLocation.CurrentValues
crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
crParameterDiscreteValue.Value = Form1.intPID
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldLocation.ApplyCurrentValues(crParameterValues)
rpt.SetDataSource(ds)
Me.myCrystalReportViewer.ReportSource = rpt
I've tried setting "crParameterFieldLocation.HasCurrentValue = True"
But this gives me a "Property 'HasCurrentValue' is read-only."
Anyway on how to disable the prompts without using HasCurrentValue, or anyway to disable read-only on that property?