Visual Basic

Private Const PARAMETER_FIELD_NAME As String = "numb"

    Private impbonrecepReport As ReportDocument

    Private Sub ConfigureCrystalReports()


        Dim myArrayList As ArrayList = New ArrayList()

        myArrayList.Add(999)
        Dim numbrecep As Integer

        numbrecep = 999



        SetCurrentValuesForParameterField(impbonrecepReport, myArrayList)
       
        impbonrecepReport = New ReportDocument()
        Dim reportPath As String = Application.StartupPath & "\" & "ImpBonReception.rpt"

        impbonrecepReport.Load(reportPath)
        CrystalReportViewer1.ReportSource = impbonrecepReport

    End Sub


Private Sub SetCurrentValuesForParameterField(ByVal myReportDocument As ReportDocument, ByVal myArrayList As ArrayList)

        Dim currentParameterValues As ParameterValues = New ParameterValues()


        For Each submittedValue As Object In myArrayList

            <big>Dim myParameterDiscreteValue As ParameterDiscreteValue = New ParameterDiscreteValue()</big>
            myParameterDiscreteValue.Value = myArrayList.ToString()
            currentParameterValues.Add(myParameterDiscreteValue)

        Next


        Dim myParameterFieldDefinitions As ParameterFieldDefinitions = myReportDocument.DataDefinition.ParameterFields
        Dim myParameterFieldDefinition As ParameterFieldDefinition = myParameterFieldDefinitions(PARAMETER_FIELD_NAME)
        myParameterFieldDefinition.ApplyCurrentValues(currentParameterValues)


    End Sub

An unhandled exception of type 'System.NullReferenceException' occurred in GestionStock.exe
Additional information: La référence d'objet n'est pas définie à une instance d'un objet.

Dim myParameterFieldDefinitions As ParameterFieldDefinitions = myReportDocument.DataDefinition.ParameterFields<br />