Changer la position d'un Field dans FastReport Preview

Version imprimable

Salut tous le monde, je cherche comment changer la position d'un field dans FastReport.
J'ai fait ce petit code mais ça n'a pas marcher et il me retourne un message d'erreur de genre violation d'access.

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
procedure TForm7.Button1Click(Sender: TObject);
var
Memo: TfrxMemoView;
DS: tfrxdataset;
begin
Memo := frxReport1.FindObject('Memo1') as TfrxMemoView;
ds := frxReport1.FindObject('[frxDBDataset2."Nom et Prénom"]') as tfrxdataset;
 
if abstable2['grade']='Généraliste' then
begin
Memo.Text :='Medecin généraliste';
ds.Left:=8;
end;
 
if abstable2['grade']='Spécialiste' then
begin
Memo.Text :='Dr.';
ds.Left:=92;
end;
 
if abstable2['grade']='Professeur' then
begin
Memo.Text :='Pr.';
ds.Left:=92;
end;
 
frxreport1.ShowReport(true);
end;

Bonjour,

vu ce que vous écrivez vous n'avez pas une version pro (avec script) de FastReport puisque vous tentez de faire cela au runtime.

Citation:

il me retourne un message d'erreur de genre violation d'access.

peut-être que si vous testiez que la variable est accessible if Assigned(variable) then ce serait mieux non ?
Code:

1 2 3 4 5 6 7 8 Memo := frxReport1.FindObject('Memo1') as TfrxMemoView; ds := frxReport1.FindObject('[frxDBDataset2."Nom et Prénom"]') as tfrxdataset; if abstable2['grade']='Généraliste' then begin Memo.Text :='Medecin généraliste'; ds.Left:=8; end;
du grand n'importe quoi !
1 -Vous changez la position de ds, un composant non visuel, au lieu de celle de Memo1
2 - Il ne vous est pas venu à l'idée de créer une colonne au sein de la requête
Code:

1 2 3 4 5 CASE GRADE WHEN 'Généraliste' then 'Médecin Généraliste' 'Spécialiste' then 'Dr.' 'Professeur' then 'Pr.' END AS LIBELLE
3- La colonne Grade aurait du être un code relié (FOREIGN KEY) à une table GRADES(Code_Grade,libelle_grade)

Salut, j'ai trouver la solution a ce que je cherche et la voilà:
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 procedure TForm7.Button1Click(Sender: TObject); var Memo,ds: TfrxMemoView; begin Memo := frxReport1.FindObject('Memo1') as TfrxMemoView; ds := frxReport1.FindObject('Memo2') as TfrxMemoView; if abstable2['grade']='Généraliste' then begin Memo.Text :='Dr.'; Ds.text:='Medecin généraliste'; // et pour le champs du grade dans le base de donnée dans le cas ou le médecin est généraliste il se rempli par un vide end; if abstable2['grade']='Spécialiste' then begin Memo.Text :='Dr.'; Ds.text:='Spécialiste:'; end; if abstable2['grade']='Professeur' then begin Memo.Text :='Pr.'; Ds.text:='Spécialiste:'; end; frxreport1.ShowReport(true); end;
Et je m'excuse pour le premier code parce que j'ai fais trop d'erreur de non concentration.

Citation:

Envoyé par SergioMaster

vu ce que vous écrivez vous n'avez pas une version pro (avec script) de FastReport puisque vous tentez de faire cela au runtime.

J'ai la version pro mais je suis débutant dans FastReport c'est la première fois que je l'utilise vu que j'ai par trouver quelques fonctionnalités qui j'ai besoin dans QuickReport alors j'essaye de me migrer vers FastReport.

Citation:

Envoyé par SergioMaster

La colonne Grade aurait du être un code relié (FOREIGN KEY) à une table GRADES(Code_Grade,libelle_grade)

Pour la table grade je l'ai comme un champs dans la table médecin.

Merci SergioMaster.