Crystal Report Pass the Paramater programmatically

This code sample shows how we can pass the parameters programmatically.

Create report instance. This is the class added to your project

when you added the report to the project

Dim report As MyReport = New MyReport

Fill data in DataSet here. Skip this step if your report is calling
a stored procedure direct


Dim ds As DataSet = New DataSet

' ds = GetDataFromDatabase()
Dim crParameterDiscreteValue As ParameterDiscreteValue

Dim crParameterFieldDefinitions As ParameterFieldDefinitions

Dim crParameterFieldLocation As ParameterFieldDefinition

Dim crParameterValues As ParameterValues

Get the report parameters collection.
crParameterFieldDefinitions = report.DataDefinition.ParameterFields
Add a parameter value - START

crParameterFieldLocation = crParameterFieldDefinitions.Item("@ParameterName1")

crParameterValues = crParameterFieldLocation.CurrentValues

crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue

crParameterDiscreteValue.Value = "Parameter1Value"

crParameterValues.Add(crParameterDiscreteValue)

crParameterFieldLocation.ApplyCurrentValues(crParameterValues)

' Add a parameter value - END

crParameterFieldLocation = crParameterFieldDefinitions.Item("@ParameterName2")

crParameterValues = crParameterFieldLocation.CurrentValues

crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue

crParameterDiscreteValue.Value = "Parameter2Value"

crParameterValues.Add(crParameterDiscreteValue)

crParameterFieldLocation.ApplyCurrentValues(crParameterValues)
Set report's DataSource. Skip this step if your report is calling a
stored procedure direct in the report.
report.SetDataSource(ds)
' Set CrystalReportViewer.ReportSource
CrystalReportViewer1.ReportSource = report