Discussion :

[angus9]

Bonjour.
Je rencontre un soucis. Je souhaite faire apparaitre le contenu d'une txtbox (vb6) dans un champs (CR XI) mais sans base de données (en direct quoi). Est ce possible avec Cr XI ? Dois je utiliser Parameterfields ?
Si quelqu'un pouvait m'aiguiller car là cela fait plusieurs jours que j'essaies mais sans résultats. Je vais craquer
Merci.

[angus9]

Bon j'approche du but mais... il ne trouve pas l'index du champs Crystal. J'ai créé les champs dans "parametre de champ" de CR XI. Quelqu'un voit pourquoi le message d'erreur "indice en dehors de la plage" apparait sous vb6 ?

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
Private Sub Form_Load()
 
Dim app As New CRAXDDRT.Application
Dim Report As New CRAXDDRT.Report
 
Set crxApplication = New CRAXDDRT.Application
Set Report = crxApplication.OpenReport("C:\Users\*********\Documents\********\Etat\Rapport1.rpt")
 
CRViewer1.ReportSource = Report
Report.ParameterFields(0) = "Longueur;" & Val(TxtLongR) & ";True"
Report.ParameterFields(1) = "Largeur;" & Val(TxtLargR) & ";True"
 
Report.DiscardSavedData
CRViewer1.ViewReport
 
End Sub