Discussion :

[CDRIK]

Bonjour,

J'ai des états CR avec un champ paramétré. Sous CR, lorsque l'on prévisualise l'état , on a la possibilité avec le refesh de changer ce paramètre.
Dans une application VB, je rentre le paramètre souhaité et je voudrais que l'état correspondant s'affiche dans le viewer (qui sera dans une autre fenêtre VB). Comment "passer" ce paramètre de VB à CR ?

J'ai déjà été voir sur le forum. Je connais les librairies pour utiliser le viewer et la manière de le lancer. Essayer de donner un maximum de précisions car je suis debutant.

Merci

[CDRIK]

Dans VB, dans la librairie "CRVIEWERLibCtl" qu'il y avait deux classes CRField et CRFields. J'ai essaye de les utiliser comme ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim CrxApp As New CRAXDRT.Application
Dim CrxRpt As CRAXDRT.Report
Dim Param_field As CRFields
Dim num_seq As CRField
 
Set num_seq = Param_field.Item("num_seq")
num_seq.Value = 454496
 
Set CrxRpt = CrxApp.OpenReport("mon_etat.rpt")
CRViewer1.ReportSource = CrxRpt
CRViewer1.ViewReport

... où "num_seq" c'est le nom du parameter field dans CR.

Mais lors de l'execution, j'obtiens une erreur...

Code :

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

Type mismatch

...au niveau de la ligne Set num_seq = Param_field.Item("num_seq")

Normalement la propriété ITEM de la classe CRFields prend en argument un Long mais je ne vois pas comment avoir le nombre correspondant au champ paramétré ("num"_seq").

Si je suis pas clair, hésitez pas à me poser des questions !

[CDRIK]

Finalement, j'ai essayé ceci et ça marche :

Code :

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

1
2
3
4
5
6
7
 
Global CrxApp As New CRAXDRT.Application
Global CrxRpt As CRAXDRT.Report
 
Set CrxRpt = CrxApp.OpenReport("test.rpt")
 
CrxRpt.ParameterFields.GetItemByName("num_seq").AddCurrentValue "456"

...où num_seq est le nom de mon parameter field et 456 la valeur que je veux faire passer à CR.

[speed034]

salut,
Je comprend pas j'ai exactement ce que tu as mis (la soluc ki passe bien entendu) et moi il me plante sous vb...
Il me dit : invalide name.

tu verrais why?

merci
++speed