Discussion :

[dj_techno]

salut
je suis entrain de créer un filtre pour l'affichage de données, dans le fiche il y'a deux dblookupcombo et un dbgrid et biensûre adoconnection, adotables, datasources.
bon, les critéres de filtrage doivent faire comme suit:

si je selectionne une 'ville' dans dblookup1 et on ne selectionne rien dans dblookup2: le filtarge doit être selon le dblookup1 (il m'affiche tous les enregistrement ou il y'a la ville choisie)

si je selectionne une 'qualification' dans dblookup2 et on ne selectionne rien dans dblookup1: le filtarge doit être selon le dblookup2 (il m'affiche tous les enregistrement ou il y'a la qualification choisie)

si je selectionne une ville dans dblookup1 et si je selectionne une 'qualification' dans dblookup2: le filtarge doit être selon le dblookup1 et dblookup2 (il m'affiche tous les enregistrement ou il y'a la ville et la qualification choisie) c'est à dire un filtrage en deux critéres

bon j'ai réaliser les deux 1eres conditions mais pour la derniere rien ne passe

voici le code ou j'ai essayé de faire un filtre sur deux critéres:

Code :

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

1
2
3
4
filtered:=false;
Filter:= 'qualification ='+ QuotedStr(dblookupcombobox2.Text) ;
Filter:= filter+'and site_travail = '+ QuotedStr(dblookupcombobox1.Text);
filtered:=true;

même j'ai essayé d'utiliser les condition ou je teste sur l'action sur les dblookup, aussi rien ne passe pour la troisieme condition seulement les deux
1éres qui fonctionnent et voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
filtered:=false;
if (dblookupcombobox2.text='') and (dblookupcombobox1.text<>'')then
 Filter:= 'site_travail ='+ QuotedStr(dblookupcombobox1.Text) ;
 
if (dblookupcombobox1.text='') and (dblookupcombobox2.text<>'')then
 Filter:= 'qualification ='+ QuotedStr(dblookupcombobox2.Text) ;
 
if  (dblookupcombobox2.text<>'' )and (dblookupcombobox1.text<>'') then
Filter:= 'qualification ='+ QuotedStr(dblookupcombobox2.Text) ;
Filter:= filter+'and site_travail = '+ QuotedStr(dblookupcombobox1.Text);
 
filtered:=true;

j'attends vos aide avec grand remeriements

[host22]

utilise Onfilterrecord Aide de delphi peut t'aider...

[slimjoe]

Salut!

Je dis peut-être n'importe quoi mais...

Code :

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

1
2
3
4
filtered:=false;
Filter:= 'qualification ='+ QuotedStr(dblookupcombobox2.Text) ;
Filter:= filter+'and site_travail = '+ QuotedStr(dblookupcombobox1.Text);
filtered:=true;

... il ne manquerait pas un espace entre les 2 critères ?

Perso, j'essayerais avec ça :

Code :

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

1
2
3
4
Filtered := False;
Filter := Format('qualification = %s and site_travail = %s', 
  [QuotedStr(dblookupcombobox2.Text), QuotedStr(dblookupcombobox2.Text)])
Filtered := True;

[dj_techno]

salut
j'ai bien essayé se code:

Code :

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

1
2
3
4
Filtered := False;
Filter := Format('qualification = %s and site_travail = %s', 
  [QuotedStr(dblookupcombobox2.Text), QuotedStr(dblookupcombobox2.Text)])
Filtered := True;

mais il ne me donne rien

[dj_techno]

salut

je vais expliquer théoriquement se que je veux faire:

mon probléme c'est que je veux que les deux dblookup fonctionnent l'un ne dépend pas de l'autre, c'est à dire que

si je selectionne un site sans selectionner une qualification, il doit me faire un filtrage selon site

si je selectionne une qualification sans selectionner un site, il doit me faire un filtrage selon qualification

si je selectionne un site et je selectionne une qualification, il doit me faire un filtrage selon site et qualification

aussi je dois toujours rénitialiser avec un bouton "rénistialiser" les deux dblookup à vide (n'affichent rien et je dois selectionner à nouveau), que je n'arrive pas à la faire.

merci

[jenteldz47]

Salut,
essayez le code suivant pour les deux crirtères:

Code :

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

1
2
3
filtered:=false;
Filter:= 'qualification ='+ QuotedStr(dblookupcombobox2.Text)+'and site_travail = '+ QuotedStr(dblookupcombobox1.Text);
filtered:=true;

[aliwassem]

pour faire un filtre multi il faut pas utiliser

Code :

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

1
2
Filtre := .........;
Filtre := .........;

mais il faut faire

Code :

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

Filtre := '........' + ' AND .........'+' AND ........';

des AND ou des OR ou AND et OR Ou........................ comme vous voulez....

[dj_techno]

bonjour
j'attends toujours vos aides, car je suis coincé et pour le code j'utilise déja AND (mon code en haut de la discussion) et syntaxiquement est correcte et pas d'erreur, mais je crois que le probléme est au niveau de AND elle ne repond aux deux 1eres conditions :

condition1:
si je selectionne un site sans selectionner une qualification, il doit me faire un filtrage selon site

condition2:
si je selectionne une qualification sans selectionner un site, il doit me faire un filtrage selon qualification

condition3:
si je selectionne un site et je selectionne une qualification, il doit me faire un filtrage selon site et qualification

merci

[Rayek]

Tu peux faire comme cela.

Code Delphi :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
var
  sSite,sQualif : String;
begin
  filtered:=false;
 
  Filter := '';
  sSite := '';
  sQualif := '';
 
  if dblookupcombobox1.text<>'' then
    sSite := 'site_travail ='+ QuotedStr(dblookupcombobox1.Text);
 
  if (dblookupcombobox2.text<>'') then
  begin
    if sSite <> '' then
      sQualif := ' and ';
   sQualif := sQualif + 'qualification ='+ QuotedStr(dblookupcombobox2.Text) ;
  end;
  Filter := sSite + sQualif; 
  filtered:=true;
end;

[dj_techno]

salut
grand merci MALTAR, votre solution fonctionne bien et tout marche comme je souhaite.
merci