Discussion :

[tarmo57]

Bonjour tous , j'ai un problème avec une condition dans un QReport
j'ai placer un QRDBText
il affiche correctement les données mais si je fais une condition rien ne fonctionne

mon code

Code :

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

1
2
3
 
if QRDBText37.Caption = 'Oui' then
QRDBText31.Enabled:=true

QRDBText37 affiche bien oui mais l'instruction ne fonctionne pas.
J'ai placer le code dans QRBand2.BeforePrint

une idée ?

[SergioMaster]

une idée ?

2 idées
- Utiliser le bon forum ici et avec le préfixe [Quickreport]
- un QRDBText n'a pas de propriété Caption , tester directement sur le Champ de la Table ou Query OU encore déplacer le test sur l'évènement onPrint de QRDBText13

Code :

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

1
2
3
4
procedure TForm1.QRDBText13Print(sender: TObject; var Value: String);
begin
QRDBText31.Enabled:=(Value='Oui');
end;

* tester directement sur le Champ de la Table ou Query a nettement ma préférence