Bonjour à tous.

Ces exemples proposent l'utilisation des filtres selon le cas.

1/Champ de type integer:

A:Valeur constante.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
Tiers.Filtered:=true;
Tiers.Filter:='fml_trs=1' //valeur=1.
end;

B:Valeur variable.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
procedure TForm1.Button2Click(Sender: TObject);
var k:Variant;
begin
  k:=IntToStr(DBLOOKupcombobox1.KeyValue); //reccueil d'une valeur du DBLOOKupcombobox1.KeyValue.  
   Clients.Filtered:=true  ;
   Clients.Filter:='COD_TRS='+k;          
end;
2/champ de type string:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
procedure TForm1.FormShow(Sender: TObject);
begin
 RMajprdStkV.FilterOptions:=[focaseinsensitive] ; //pour ne pas faire de différence entre les lettres MAJ et MIN.
end;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
procedure TForm1.Edit1Change(Sender: TObject);
begin
 RMajprdStkV.Filtered:=true;
 RMajPrdStkV.Filter:='LBL_PRD='+quotedstr(edit1.text+'*'); //chaque fois qu'on tape une lettre RMajPrdStkV sera filtrée.                            
end;
merci à tous.