Delphi 7 + crystal report
salut
j'aimerais passer des parametres de delphi vers crystal report
j'utilise SetReportVariableValue car j'imagine que c'est ce qu'il faut utiliser en delphi.
mais j'obtiend une erreur du genre "access refusé"
l'etat s'affiche normalement sur crystal report avec les paramètre par defaut.
voici mon code :
Code:
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
| procedure TFenetre_releve_sequentiel.ImpressionFinishButtonClick(
Sender: TObject; var Stop: Boolean);
var
crReport : IReport;
chem: string;
begin
try
Cursor := crHourGlass;
chem:=path+'Bulletin_Sequentiel.rpt';
crReport := crApplication.OpenReport(chem, crOpenReportByTempCopy);
crReport.SetReportVariableValue('ID_seq',Id_sequence);
crReport.SetReportVariableValue('ID_classe',Id_classe);
Fenetre_bulletin_sequentiel.Show;
Fenetre_bulletin_sequentiel.View_bulletin_sequentiel.ReportSource := crReport;
Fenetre_bulletin_sequentiel.View_bulletin_sequentiel.ViewReport;
while Fenetre_bulletin_sequentiel.View_bulletin_sequentiel.IsBusy do
begin
forms.Application.ProcessMessages;
end;
Cursor := crDefault;
crReport._Release;
except
on E: EOLEException do
ShowMessage (E.Message);
end;
Fenetre_releve_sequentiel.Close;
Wizard_releve_sequentiel.ActivePage:=bienvenue;
end; |
Merci de repondre
