Discussion :

[pierrot67]

Bonjour

J'ai un filtre du style ci-dessous qui ne marche pas du fait que mon champ est un champ numérique pourriez-vous m'aider???

Code :

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

1
2
3
4
5
var filtre:string;
begin
filtre:='NDossard='''+edit4.text+'*''';
Resultats.Filter:=filtre;
Resultats.Filtered:=true;

Merci d'avance

[Montor]

essaie

Code :

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

filtre:='NDossard > '+edit4.text;

[BuzzLeclaire]

Bonjour

J'ai un filtre du style ci-dessous qui ne marche pas du fait que mon champ est un champ numérique pourriez-vous m'aider???

Code :

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

1
2
3
4
5
var filtre:string;
begin
filtre:='NDossard='''+edit4.text+'*''';
Resultats.Filter:=filtre;
Resultats.Filtered:=true;

Merci d'avance

Bonjour,

Pas beaucoup d'information !! il faut nous en dire plus :
- Resultats ? c'est quoi comme objet Query, Table ?
- qu'utilise tu Ado, DBE ? (ou meme datamodule ?)
- quel type de base de données (si il en a une) ?
- quel Delphi ?

@

[pierrot67]

Merci pour vos réponse

c'est une Table paradox
delphi 2005
bde

[BuzzLeclaire]

Merci pour vos réponse

c'est une Table paradox
delphi 2005
bde

Salut,

Alors utilise

Parameters.ParamByname('ton champs').Value := Edit4.text

de ton objet Qry.

[pierrot67]

Merci mais
je n'ai pas de Tquery et je ne vois pas très bien ou se trouve le filtre dans ta solution.

[pierrot67]

réussi un filtre mais....quand je vide l'edit4 il me donne ce message d'erreur
expression attendu mais vide trouvé

Code :

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

1
2
3
4
5
6
var filtre:string;
begin
filtre:='NDossard='+ edit4.text ;
 
datamodule2.resultats.Filter:=filtre;
datamodule2.resultats.Filtered:=true;

[Rayek]

réussi un filtre mais....quand je vide l'edit4 il me donne ce message d'erreur
expression attendu mais vide trouvé

Code :

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

1
2
3
4
5
6
var filtre:string;
begin
filtre:='NDossard='+ edit4.text ;
 
datamodule2.resultats.Filter:=filtre;
datamodule2.resultats.Filtered:=true;

En reflechissant un peu

Code :

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

1
2
3
4
5
6
7
8
9
 
datamodule2.resultats.Filtered:=False;
 
if edit4.text <> '' then
begin
filtre:='NDossard='+ edit4.text ;
datamodule2.resultats.Filter:=filtre;
datamodule2.resultats.Filtered:=true;
end;

[pierrot67]

Merci ça fonctionne...

Bonne journée.

[Montor]

Code :

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

1
2
3
4
5
6
if StrtoIntDef(edit4.text,-1)<>-1 then
begin
filtre:='NDossard='+ edit4.text ;
datamodule2.resultats.Filter:=filtre;
datamodule2.resultats.Filtered:=true;
end;

Code :

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

1
2
3
4
5
6
7
try
  StrtoInt(edit4.text);
  filtre:='NDossard='+ edit4.text ;
  datamodule2.resultats.Filter:=filtre;
  datamodule2.resultats.Filtered:=true;
except
end;

[pierrot67]

Merci pour tout