How To Disable the Parameter Prompt for Crystal Report Using VB.Net

Just sharing, no big deal.

Refer to

http://msdn.microsoft.com/en-us/library/ms227086%28v=vs.90%29.aspx

This applies to MS .NET programming using Visual Studio 2008 SP1.

Three things to take note.

1. ) Do not invoke CrystalReportViewer.RefreshReport Method

This method will refresh the data for the report currently displayed in the CrystalReportViewer control. The report will prompt for parameters or logon info is necessary.

So, this method is not needed unless the same CrystalDecisions.CrystalReports.Engine.ReportDocument object is reused.

2.) Procedures (Must follow this order)

2.1. Refresh ReportDocument object

2.2. Set ReportDocument object datasource

2.3. Set ReportDocument object as CrystalReportViewer.ReportSource

2.4. Set parameters to ReportDocument

3.) Two ways of setting parameters at step 2.4

3.1) Using a combination of

CrystalDecisions.Shared.ParameterField.CurrentValues
CrystalDecisions.Shared.ParameterField.HasCurrentValue

3.2) Using CrystalReports.Engine.ReportDocument.SetParameterValue

Sample Codes: 

Public Sub LoadReport_1(Optional ByVal remoteDataCol As Collection = Nothing)

        Dim CrxReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim strReportName As String
        Dim paramV As CrystalDecisions.Shared.ParameterValues
        Dim paramDValue As CrystalDecisions.Shared.ParameterDiscreteValue


        Try

            Cursor.Current = Cursors.WaitCursor

            strReportName = Application.StartupPath & "\Rpt\Report1.rpt"
            CrxReport.Load(strReportName, CrystalDecisions.Shared.OpenReportMethod.OpenReportByDefault)

            '-1. Refresh ReportDocument object
            CrxReport.Refresh()

            '-2. Set ReportDocument object datasource
            CrxReport.SetDataSource(remoteDataCol)

            '-3. Set ReportDocument object as CrystalReportViewer.ReportSource
            CRViewer.ReportSource = CrxReport

            '-4. Set parameters  to ReportDocument ----
            paramV = New CrystalDecisions.Shared.ParameterValues
            paramDValue = New CrystalDecisions.Shared.ParameterDiscreteValue
            paramDValue.Value = "ABC Company"
            paramV.Add(paramDValue)

            '--- Method 1 (This works) ----
            CrxReport.ParameterFields.Item("MyCompany").CurrentValues = paramV
            CrxReport.ParameterFields.Item("MyCompany").HasCurrentValue = True

            '--- or Method 2 (This also work) ----
            'CrxReport.SetParameterValue(0, "ABC Company")
            'CrxReport.SetParameterValue("MyCompany", paramDValue)

            CRViewer.ShowExportButton = True
            CRViewer.ShowPrintButton = True
            CRViewer.ShowGroupTreeButton = True

            CRViewer.Zoom(100)
            Cursor.Current = Cursors.Default

        Catch ex As Exception
            MsgBox(ex.ToString & vbCrLf & ex.Message & vbCrLf & ex.StackTrace)
        End Try
    End Sub