Discussion :

[lou_delphdev]

bonjour tout le monde!!!
ben mon sousi est de savoir comment fair un filtre pour pouvoir afficher tt les enregistrements qui commencent avec les caracters qui se trouvent sur Tedit

g fait ceci:

Code :

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

1
2
3
4
 
Table1.Filtered:=false;
table1.Filter:='Nomclt='+QuotedStr(edit1.Text)+'*';
Table1.Filtered:=true;

mais ça ne marche pas, j'ai une exeption: 'Arethmetique non suportée dans les expressions filter'

pouvez vous m'aider!!! ça me sera d'une trés grande utilité!!!
veuillez accepter mes remerciments distingués!!!!

[aityahia]

essai sa

Code :

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

1
2
3
Table1.Filtered:=false;
Table1.Filter:='Nomclt='+QuotedStr(edit1.Text+'*');
Table1.Filtered:=true;

[Cl@udius]

Salut

J'utiliserais plutôt un like:

Code :

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

1
2
3
4
 
Table1.Filtered := false;
Table1.Filter:='Nomclt like ' + QuotedStr(edit1.Text + '*');
Table1.Filtered := true;

@+

[aityahia]

+1
j'utilise plus les filtre j'ignore que le like fonctionne avec les filtres.

[akli_agha]

Bonjour,

La meilleure solution, dans ce cas, est d'utiliser l'evnt OnFilterRecord.

PS : Il faut mettre la propriété Filtered de la table à True

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TfrmAddArt.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
var
  s : String;
  i : SmallInt;
begin
  s := Trim(UpperCase(edit1.Text));
  i := Length(s);
 
  if s <> '' then
    Accept :=
      (UpperCase(Copy(Table1.FieldByName('NOMCLT').AsString, 1, i)) = s);
end;

Bon Dév.

[kroma23]

salut
pour ton probleme je prefere detuliser un query c mieux
code:
query1.sql.clear;
query1.sql.add('select * from matable where champ= '''+edit1.text+'''');
query1.open;

essaye ca a+

[lou_delphdev]

Kroma23 a dit:

salut
pour ton probleme je prefere detuliser un query c mieux
code:
query1.sql.clear;
query1.sql.add('select * from matable where champ= '''+edit1.text+'''');
query1.open;

essaye ca a+

Vous avez raison pour le querry mais vous avez oublier le '%'

Je vous remmerci tous!!!!!!!!!!