Discussion :

[létudiant (EPSI)]

tout est dans le titre je cherche a récuperer la valeur d'un QRDBText

j'ai essayer:

Code :

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

1
2
3
QRDBText.Text;
QRDBText.Value; 
QRDBText.caption;

fonctionne pas



Je pense que c'est avec le Dataset ou le Datafield mais j'arrive pas a trouver

[létudiant (EPSI)]

personne n'a d'idée? j'ai vraiment besoin d'aide!

j'ai un peu avancer

Code :

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

QRLabel1.Caption:=QRDBText_tva_id.dataset.Fields[0].AsString;

Ca ça devrait fonctionner mais ça sélectionne le premier de la table et ça ne sélectionne pas le prochain

[kimlee]

Bonjour,

Dans l'évènement OnPrint de ton QRDBText, tu modifies Value (passé en paramètre)

Exemple perso ci-dessous : si la valeur est zéro, alors on affiche rien

Code :

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

1
2
3
4
5
6
7
 
procedure TMatterDirectoryReportForm.QRDBText6Print(sender: TObject;
  var Value: String);
begin
  if MainDevisDataModule.PrixClientDataSet.FieldByName('MiniFactLibre').AsFloat = 0 then
    Value := '';
end;

Bon courage