Discussion :

[rafraf6]

Bonjour,

J'affiche sur mon DBGrid ma table Article. Le probleme est que j'ai un champ prix avec comme type : Monétaire, Decimales 2. Et quand je l'affiche sur mon Dbgrid, il me l'affiche en entier. Donc si j'ai un prix de 10,00 Euro, il m'affiche 10 et je voudrais qu il affiche 10,00. Comment faire? Je voudrais donc que mes prix s'affiche avec le type Real. Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.FormCreate(Sender: TObject); 
begin 
 
  with DataModule.AdoQ1 do 
  begin 
  Close;
  SQL.Add('select nom, prix from Article'); 
  Open; 
 
  dbgrid1.Columns.Clear; 
  dbgrid1.Columns.Add.FieldName:= 'nom'; 
  dbgrid1.Columns[0].Title.caption := 'NOM'; 
  dbgrid1.Columns[0].Width:= 100; 
  dbgrid1.Columns.Add.FieldName:= 'prix'; 
  dbgrid1.Columns[1].Title.caption := 'PRIX' 
  dbgrid1.Columns[1].Width:= 100; 
  dbgrid1.Repaint; 
  end; 
end;

[mika]

Tu crée tes champs en persitant et sur le champ monétaire du mets la proprité displayformat = '# ##0.#0'

[rafraf6]

J'ai pas pu car il m 'a affiche que le composant n'etait pas installe en Access et pour le moment, je n'ai pas le Cd et puis je prefere pas modifier a ce niveau car j'ai deja fait plein de manipulations avec cette table. Je cherche une solution a l'affichage. Par exemple passer par un (StrToFloat(string), ffFixed, 8, 2) puis revenir en string : FloatToStr(float) mais j'y arrive pas dans ce code?