Osaisiko kukaan auttaa Filter ominaisuuden kanssa...
Saako suodattimia yhdistettyä siten, että yhden napin takana on aina yksi suodatus, jos useampia nappeja on "painettu pohjaan", niin silloin suodatetaan kaikkien niiden suodatusehtojen perusteella, mitkä kunkin napin takaa löytyy???
Alla oleva suodatus suodattaa vain viimeisenä olevan napin takana olevan ehdon mukaan :-(
//ARVO1
if sBBSN.Color = clRed then
begin
DM.Query1.Filter:='ARVO1 > (' IntToStr(ARVO1_MIN) ') and ARVO1 < (' IntToStr(ARVO1_MAX) ')';
end;
//ARVO2
if sBBTI.Color = clRed then
begin
DM.Query1.Filter:='ARVO2 > (' IntToStr(ARVO2_MIN) ') and ARVO2 < (' IntToStr(ARVO2_MAX) ')';
end;
Saako suodattimia yhdistettyä siten, että yhden napin takana on aina yksi suodatus, jos useampia nappeja on "painettu pohjaan", niin silloin suodatetaan kaikkien niiden suodatusehtojen perusteella, mitkä kunkin napin takaa löytyy???
Alla oleva suodatus suodattaa vain viimeisenä olevan napin takana olevan ehdon mukaan :-(
//ARVO1
if sBBSN.Color = clRed then
begin
DM.Query1.Filter:='ARVO1 > (' IntToStr(ARVO1_MIN) ') and ARVO1 < (' IntToStr(ARVO1_MAX) ')';
end;
//ARVO2
if sBBTI.Color = clRed then
begin
DM.Query1.Filter:='ARVO2 > (' IntToStr(ARVO2_MIN) ') and ARVO2 < (' IntToStr(ARVO2_MAX) ')';
end;
Vastaukset 1
Vanhimmat
...koska koodissasi filterointi tehdään ensin ekan napin mukaan ja sitten tokan napin mukaan. Ja tokan napin jälkeen DM.Query1.Filter on siis
'ARVO2 > (' IntToStr(ARVO2_MIN) ') and ARVO2 < (' IntToStr(ARVO2_MAX) ')';
Konkatenoi (=yhdistä merkkijono) tokassa napin painalluksessa aikaisempaan filterin arvoon eli
DM.Query1.Filter:=DM.Query1.Filter ' ARVO2 > (' IntToStr(ARVO2_MIN) ') and ARVO2 < (' IntToStr(ARVO2_MAX) ')';
Tosin tossa merkkijonossa menee nyt -merkit sekaisin, eli mieti, missä kohtaan niitä merkkejä laitat. En jaksanut enää ajatella asiaa tämän pidemmälle :o(