probleme de tri dans une table

Version imprimable

Bonjour à tous!
voici j'ai un problème avec ma feuille, j'utilise l'objet PageControl sur lequel j'ai plusieurs objets Tabsheet, j'utilise deux Tabsheet pour afficher le contenu de ma table dans un DBgrid, un DBgrid pour chacun des Tabsheet , je voudrais faire un tri afin d'avoir sur chacun des Tabsheet des informations differentes, mais venant de la même table; ma table contient des clients et des fournisseurs , et contient un champs Code avec 'C' pour client et 'F' pour fournisseur pour faire la difference. Donc je fais le tri avec ce champ Code .
Dans l'evenement Onshow de ma feuille j'ai fait le tri par client et fournisseur.
Voici mon code
Code:

1 2 3 4 5 6 7 8 9 10 if Pagecontrol1.ActivePage = Tabsheet3 then begin DM.tbContact.Filter:='CODE=''C'''; DM.tbContact.Filtered:=true; end; if Pagecontrol1.ActivePage = Tabsheet4 then begin DM.tbContact.Filter:='CODE=''F'''; DM.tbContact.Filtered:=true; end;
avec ce code ça ne marche pas, je ne sais pas comment faire.
Merci d'avance pour votre aide :D

Salut

Ajoute un First sur la table pour forcer le refiltrage des données.

Code:

1
2
3
4
5
6
7
8
9
10
11
 
with DM.tblContact do 
begin
  if Pagecontrol1.ActivePage = Tabsheet3 then
    Filter := 'CODE=''C'''
  else if Pagecontrol1.ActivePage = Tabsheet4 then
    Filter := 'CODE=''F''';
 
  Filtered := True;
  First;
end;

@+ Claudius

je viens de trouver le code et il fallait le mettre dans l'evenement OnChange du PageControl comme ainsi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TGestionForm.PageControl1Change(Sender: TObject);
begin
  if Pagecontrol1.ActivePage = Tabsheet3 then
   begin
    DM.tbContact.Filter:='CODE=''C''';
    DM.tbContact.Filtered:=true;
   end
    else 
   if Pagecontrol1.ActivePage = Tabsheet4 then
   begin
    DM.tbContact.Filter:='CODE=''F''';
    DM.tbContact.Filtered:=true;
   end;
 
end;

Ok merci :D

03/04/2007, 15h58
tchimou

Merci encore Cl@udius pour ton code, mais j'avais déjà trouvé l'autre.
Merci
03/04/2007, 15h59
Cl@udius

Y'a pas de quoi !

@+