Bonjour à tous,

Voila, je m'explique, j'ai une procédure OnGetText
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
procedure TDataModule1.IBtblAvenantsPRESTGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  case IBtblAvenantsPREST.AsInteger of
    1: Text := 'A facturer';
    6: Text := 'Annulé';
    8: Text := 'Pas de prestation';
    9: Text := 'Facturé';
  end;
end;
et j'utilise une DBGrid dans laquelle j'ai un champ appellé PREST, les valeurs dans PREST peuvent être 1, 6, 8 ou 9, mais j'aimerai affiché dans la DBGrid le texte 'A Facturer' pour 1 , 'Annulé' pour 6, etc...
Pouvez-vous m'aider?
Heu si l'explication n'est pas clair, j'essayerai de m'expliquer autrement.

Merci d'avance.

Jeankiki