Discussion :

[wiski08000]

bonjour tt le monde
j'utilise delphi 7 et quickreport
je veux affecter une valeur qui se trouve dans un qrlabel et l'affecter à un qrexpr et qui se trouves dans quickrep1
comment dois je faire

Code :

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

1
2
3
4
 
if monetat.QRDBText14.DataSet.FieldByName('solde_reste').AsFloat = 0 then
 
 qrexpr1. ????:=monqrlabel.Caption;

dsl je suis qu'un débutant
merci

[SergioMaster]

Bonjour,

Non , car vous ne fournissez pas d'information pertinentes ! êtes vous sûr que c'est une QRexpression que vous voulez affecter (j'ai un gros doute)
et en plus y affecter une valeur se trouvant dans un QRLabel autant directement affecter avec ce qui a rempli le QRLabel.

Fournissez quelque chose d'explicite (dessin d'état, données impliquées, résultat attendu) et vous aurez peut-être une réponse correcte

[wiski08000]

Bonjour,

Non , car vous ne fournissez pas d'information pertinentes ! êtes vous sûr que c'est une QRexpression que vous voulez affecter (j'ai un gros doute)
et en plus y affecter une valeur se trouvant dans un QRLabel autant directement affecter avec ce qui a rempli le QRLabel.

Fournissez quelque chose d'explicite (dessin d'état, données impliquées, résultat attendu) et vous aurez peut-être une réponse correcte

désolé

qrlabel ='20,000'
mon qrexp est paramétrer afin d'afficher la somme (sum) d'un champ qui est mon total
j'aimerais que quand mon champ total affiche 0,00 dans ce cas je veux que mon qrexp qui affiche 0,00 affiche le montant affiché sur mon qrlabel et pas 0,00

merci

[SergioMaster]

Bonjour,

C'est ça que vous appelez des informations explicite ! Déjà que je n'utilise plus quickreport depuis des années ça n'aide pas vraiment.
Tel que vous le présentiez (titre) je pensais que vous vouliez modifier l'expression elle même !

Il suffirait de coder l'évènement onPrint de l'expression

Code :

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

1
2
3
4
procedure TFormxx.QRExpr1.Print(sender : TObject; var Value:String);
begin
if value='0,00' then value:=MonQrLabel.Value;
end;

mais ce n'est par forcément très fiable je recommande plutôt d'écrire
if FloatToStrDeF(Value)=0 then Value:=Format('%3.2f',champQRValue.asFloat);
ChampQRValue c'est la colonne du datasource qui rempli votre QRLabel si toutefois il s'agit d'un champ s'il s'agit d'une constante c'est encore plus simple