Je ne parviens pas à formatter mon affichage dans une grille reliée à une table créée dynamiquement.
Les valeurs avec décimales sont affichées avec un ou deux chiffres aprés la virgule, les valeurs qui n'ont pas de décimales sans rien dérrière la valeur elle même.
Le format currency semble bien respecté lorsqu'on ouvre la table avec l'utilitaire de base de données : on a bien deux chiffres aprés la virgule quelle que soit la valeur, donc quelquefois deux zéros...
Ce code est du code delphi 3.
Je souhaite dans un premier temps obtenir l'affichage avec deux décimales sur le champ TOTAUX qui est du type Currency.
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
20
21
22
23
24
25
26 Try DynamicTbl := TTable.Create(Self); Except End; with DynamicTbl do begin Active := False; TableName := 'DynamicTbl'; TableType := ttDbase; FieldDefs.Clear; FieldDefs.Add('FACTURE', ftString, 14, False); FieldDefs.Add('TOTAUX', ftCurrency, 0, False); While not DSCATPAI.EOF do Begin FieldDefs.Add(Trim(DSCATPAI['CODE']), ftCurrency, 0, False); DSCATPAI.Next; End; CreateTable; { crée la table} DataSource3.DataSet:=DynamicTbl; DBG.DataSource:=DataSource3; DynamicTbl.Open; .....
Qui a une idée ?
![]()
![]()
Partager