Discussion :

[k_boy]

Bonjour,

Je veux passer une valeur à crystalReport pour l'utiliser dans le report mais J'ai un probleme avec mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 

Dim num_br As Integer
      

    ' la variable que je veut passer dans le report
        num_br = Integer.Parse(bon_reception.TextB_num.Text)

        ' charger mon report'
        Dim CR As New ReportDocument
       
        CR.Load("C:\Program Files\magasin\bonconsomation.rpt")

        ' Declarer les parametres relier à l'objet.
        '
        Dim crParameterDiscreteValue As ParameterDiscreteValue
        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldLocation As ParameterFieldDefinition
        Dim crParameterValues As ParameterValues


       '
        crParameterFieldDefinitions = CR.DataDefinition.ParameterFields


              '
        crParameterFieldLocation = crParameterFieldDefinitions.Item("num_br")
        crParameterValues = crParameterFieldLocation.CurrentValues
        crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
        crParameterDiscreteValue.Value = num_br
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldLocation.ApplyCurrentValues(crParameterValues)

        ' Set the Crytal Report Viewer control's source to the report document.
        CrystalReportViewer1.ReportSource = CR
        CrystalReportViewer1.Refresh()

Mon probleme est avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 CR.Load("C:\Program Files\magasin\bonconsomation.rpt")

Il m'indique une erreur

An unhandled exception of type 'System.Exception' occurred in CrystalDecisions.CrystalReports.Engine.dll

Additional information: Load report failed.

Il ne peut charger le report, est ce que vous pouvez m'aider sur sa ?
Merci.

[Hinault Romaric]

tu devrais verifier le chemin du fichier du fichier .rpt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
crParameterFieldLocation = crParameterFieldDefinitions.Item("num_br")

devrais plutot etre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
crParameterFieldLocation = crParameterFieldDefinitions.Item("@nomduparametre")

nomduparametre doit être le nom du paramètre dans l'état crystal report et il doit toujours être précéder de @.

@++

[k_boy]

maintenant j'ai le message d'erreur suivant

An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in CrystalDecisions.CrystalReports.Engine.dll

Additional information: Index non valide. (Exception de HRESULT : 0x8002000B (DISP_E_BADINDEX))

ca vient d'ou ?

[k_boy]

salut
j'ai repris depuis le debut , j'ai trouver un tutorial qui parle de mon probleme sur msdn :http://msdn.microsoft.com/fr-fr/library/ms227722.aspx
j'ai l'ai suivie, mais il y a toujours des probleme, je pense parce que ce tut veut passer plusieurs parametre
mon code est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
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
 
        Dim myParameterDiscreteValue As ParameterDiscreteValue = New ParameterDiscreteValue()
        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

et j'ai eu le message d'erreur suivant:

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.

est ce que vous pouvez m'aider à resoudre ce probleme ?
merci