format du champs d'une advdbgrid

bonsoir,
j'ai une grille(advdbgrid) liée a un query,ce query contient un champs de type float(solde)
et j’ai fais dans la propriété display format de ce champs
#,###,##0.00

Solde
-------
1000,00
500,04
0,00
3000,25
0,00
2000,00


Je veux que si j’ai une valeur(solde=0,00) dans la champs n’affiche rien dans la grille

Comme ca

Solde
------
1000,00
500,04

3000,25

2000,00

Merci pour votre aide

Utilise le OnGetText du TField et tu teste à zéro pour renvoyer une chaine vide

bonjour
merci shailetroll,mais j'ai jamais travaillé avec ce evenement,j'ai fais ce code

Code:

---

1 2 3 4 5 6

procedure TDataModule_compta.Query_consulter_lettrageMVT_N_DEBITGetText( Sender: TField; var Text: String; DisplayText: Boolean); begin if Text='0,00' then text:=''; end;

---

dans l'evenement onGetText de tfield mais il n'affiche rien dans le champs meme si la valeur<>0 il donne tjr la valeur vide

aidez moi svp et merci

Je pense qu'il faut tester la valeur de TField mais pas Text.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TDataModule_compta.Query_consulter_lettrageMVT_N_DEBITGetText( Sender: TField; var Text: String; DisplayText: Boolean); begin if (((Sender as TField).FieldName = 'COL_SOLDE') and ((Sender as TField).AsFloat = 0)) then begin Text := ''; DisplayText := ''; end; end;

---

Comme l'évènement est affecté directement à un TField normalement, il n'est pas nécessaire à vérifier


Sinon le code doit être plutôt cela, car il faut soit même affecter la valeur (ce n'est pas indiqué dans l'aide, voir le code de TField.GetDisplayText dans DB.pas, cela aurait pu être du out au lieu du var ...)

Code:

---

1 2 3 4 5 6 7 8

procedure TDataModule_compta.Query_consulter_lettrageMVT_N_DEBITGetText( Sender: TField; var Text: String; DisplayText: Boolean); begin if DisplayText and (Sender.AsFloat = 0) then Text := '' else Text := Sender.AsString; end;

---

je n'utilise pas l'IDE, je l'affecte manuellement, car je n'ai pas de DataModule, mes Query étant créé à la volée ...

Code:

---

Query_consulter_lettrage.FieldByName('MVT_N_DEBIT').OnGetText := DisplayEmptyOnZero;

---

Code:

---

1 2 3 4 5 6 7 8

procedure TDataModule_compta.DisplayEmptyOnZero( Sender: TField; var Text: String; DisplayText: Boolean); begin if DisplayText and (Sender.AsFloat = 0) then Text := '' else Text := Sender.AsString; end;

---

merci pour vous,j'essayé votre code

Code:

---

1 2 3 4

if DisplayText and (Sender.AsFloat = 0) then Text := '' else Text := Sender.AsString;

---

et il me donne a la place de ca

table avant votre code
Solde
-----
1000,00
500,04
0,00
3000,25
0,00
2000,00

et aprés le code il me donne ca


Solde
-------
1000
500,04

3000,25

2000

mais moi ce que je veux que ma grille affiche ca


Solde
-------
1000,00(voir ici)
500,04

3000,25

2000,00(ici)


c'est a dire si j'ai une valeur(2000) il doit l'afficher comme ca(2000,00)

merci bcp

forcément puisque OnGetText détourne DisplayText qui utilise le DisplayFormat...

Code:

---

1 2 3 4 5

if DisplayText and (Sender.AsFloat = 0) then Text := '' else Text := FormatFloat(TNumericField(Sender).DisplayFormat, Sender.AsFloat);

---

Salut.
Si tes champs sont persistants, il suffit de modifier le displayformat directement depuis la liste de champs de ton query.
J'ai tésté #,###,###.## et ça marche bien.
Ou bien par code

Code:

---

1 2	Query_consulter_lettrageMVT_N_DEBIT.DisplayFormat := '#,###,###.##'

---

A+

Citation:

---

Envoyé par Andry

Salut.
Si tes champs sont persistants, il suffit de modifier le displayformat directement depuis la liste de champs de ton query.
J'ai tésté #,###,###.## et ça marche bien

---

Ca ne serait pas plutôt

Code:

---

#,0.00;;#

---

?
La virgule indiquant qu'on utilise le séparateur de milliers, tandis que le point-virgule sépare les 3 sections positif;négatif;nul

Citation:

---

Envoyé par rsc

Ca ne serait pas plutôt

Code:

---

#,0.00;;#

---

?
La virgule indiquant qu'on utilise le séparateur de milliers, tandis que le point-virgule sépare les 3 sections positif;négatif;nul

---

Ouii, c'est ça même. Mais comme lui, il veut un vide si c'est à zero donc, on utilise # à la place des 0. Tu peux aussi tester pour voir.

bjr a ts,
merci bcp bcp pour vous
j'ai essayé votre code et ca marche b1

Code:

---

1 2 3 4

if DisplayText and (Sender.AsFloat = 0) then Text := '' else Text := FormatFloat(TNumericField(Sender).DisplayFormat, Sender.AsFloat);

---

et mnt le probléme est resolé
merci pr votre aide