Discussion :

[damene]

Bonjour,

J'ai une table Paradox tbFacture sous delphi 7 Entreprise, je veux la filtrer sur deux de ses champs:
MontantTTC : montant en TTC.
MontantVerse : somme des versements effectués.
Je veux avoir tous les Enregistrements où la facture est soldée ie MontantTTC = MontantVerse.

J'ai essayé toutes les syntaxes possibles sans succés

Code :

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

tbFacture.Filter:='MontantTTC =MontantVerse';

Opération non applicable

Code :

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

tbFacture.Filter:='MontantTTC =tbFactureMontantVerse.AsString';

tbFacture: champ 'tbFactureMontantVerse.AsString' non trouvé

Code :

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

tbFacture.Filter:='MontantTTC =StrToCurr(tbFactureMontantVerse.AsString);'

tbFacture: champ 'StrToCurr' non trouvé

Code :

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

tbFacture.Filter:='MontantTTC =tbFacture.FieldByName(''MontantVerse'').AsString';

tbFacture: champ 'tbFacture.FieldByName' non trouvé


Est ce que quelqu'un peut m'indiquer le bon code.

Merci.

[Just-Soft]

Salut;

Depuis Delphi 2, si je me souviens bien, Borland a introduit la notion du filtre mais faut le dire c'est un des maillon faible de la syntaxe de Delphi. L'utilisation d'un filtre en utilisant un TTable est comme suit :

Code :

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

TTable.Filter := 'Champ=' + val + ''';

où val doit être de type chaine, donc si on reprend val depuis un edit faudrait faire un transtypage Edit1.Text.

pour deux champs c'est la même chose sauf qu'il faut être logique donc utilisation des opérateurs booleans

Code :

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

TTable.Filter := 'Champ1=' + val1 + 'and ' + 'Champ2='+ val2 + '''

pour avoir un code lisible je crois que la meilleure façon est l'utilisation de variables locales :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var
    f : string;
    val1, val2 : string;
begin
  val1 := Edit1.Text;
  val2 := Table1ChampMatricule.AsString;
  f := 'Champ1=' + val1 + 'and ' + 'Champ2='+ val2 + ''';
  Table1.Filter := f;
  Table1.Filtered := True;
end;

Bien sûr se ne sont que des exemples mais le principe c'est ça. C'est pour cette raison qu'on préfère, de de loin, l'utilisation du code SQL.
Bonne chance.

[damene]

merci Just-Soft pour ta réponse.

En recherchant un peu plus j'avais déjà pose ce Pb.

la solution m'avait été donnée par Cl@udus voir Ici http://www.developpez.net/forums/d52...mps-entre-eux/