Ok. udało mi sie zrobić to filtrowanie, wszystko działa w porządku ale za pierwszym, drugim czasami trzecim wyszukiwaniem. Następnym razem przestaje działać i filtruje jakieś dziwne rzeczy :|Albo nic nie wyświetla:( Sprawdźcie to prosze... wcześniej ta procedura była krótsza i sprawdzała tylko czy ComboBoxy są różne od Cena i Marża ale to filtrowanie mnie troche zmyliło i przebudowałem ale dalej nie pasi :(
procedure TForm1.TableFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
case (ComboBox1.ItemIndex) of
0: begin
if pos(AnsiLowerCase(edit11.text),AnsiLowerCase(table.fieldvalues['Grupa']))>0 then Accept:=true
else Accept:=false;
end;
1: begin
if pos(AnsiLowerCase(edit11.text),AnsiLowerCase(table.fieldvalues['Podgrupa']))>0 then Accept:=true
else Accept:=false;
end;
2: begin
if pos(AnsiLowerCase(edit11.text),AnsiLowerCase(table.fieldvalues['Producent']))>0 then Accept:=true
else Accept:=false;
end;
3: begin
if pos(AnsiLowerCase(edit11.text),AnsiLowerCase(table.fieldvalues['Nazwa']))>0 then Accept:=true
else Accept:=false;
end;
4: begin
if (strtoFloat(table.fieldByName('Cena').AsString)>=StrToFloat(Edit11.Text)) and (strtoFloat(table.fieldByName('Cena').AsString)<=StrToFloat(Edit12.Text)) then
Accept:=true else Accept:=false;
end;
5: begin
if (strtoInt(table.fieldByName('Marza').AsString)>=StrToInt(Edit11.Text)) and (strtoInt(table.fieldByName('Marza').AsString)<=StrToInt(Edit12.Text)) then
Accept:=true else Accept:=false;
end;
6: begin
if pos(AnsiLowerCase(edit11.text),AnsiLowerCase(table.fieldvalues['Kod']))>0 then Accept:=true
else Accept:=false;
end;
7: begin
if pos(AnsiLowerCase(edit11.text),AnsiLowerCase(table.fieldvalues['Gwarancja']))>0 then Accept:=true
else Accept:=false;
end;
8: begin
if pos(AnsiLowerCase(edit11.text),AnsiLowerCase(table.fieldvalues['Opis']))>0 then Accept:=true
else Accept:=false;
end;
9: begin
if pos(AnsiLowerCase(edit11.text),AnsiLowerCase(table.fieldvalues['Stan']))>0 then Accept:=true
else Accept:=false;
end;
else
begin
if pos(AnsiLowerCase(edit11.text),AnsiLowerCase(table.fieldvalues['Grupa']))>0 then Accept:=true
else Accept:=false;
end;
end;