Discussion :

[tchimou]

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 :

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

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

[Cl@udius]

Salut

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

Code :

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

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

[tchimou]

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

Code :

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

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

[tchimou]

Merci encore Cl@udius pour ton code, mais j'avais déjà trouvé l'autre.
Merci

[Cl@udius]

Y'a pas de quoi !

@+