Discussion :

[casa88]

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

[ShaiLeTroll]

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

[casa88]

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

Code :

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

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

[Andry]

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

Code :

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

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;

[ShaiLeTroll]

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 :

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

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 :

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

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

Code :

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

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;

[casa88]

merci pour vous,j'essayé votre code

Code :

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

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

[ShaiLeTroll]

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

Code :

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

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

[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.
Ou bien par code

Code :

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

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

A+

[rsc]

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 :

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

#,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

[Andry]

Ca ne serait pas plutôt

Code :

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

#,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.

[casa88]

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

Code :

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

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