Люди, помогите с фильтрацией.

[Аватар]

ADOTable.Filtered:=False;
s:='';
if Trim(EditNaim.Text)<>'' then s:=Format('tovName LIKE ''%s%%'' AND ',[Trim(EditNaim.Text)]);
if Combobox1.ItemIndex>0 then s:=s+Format('counts %s %d AND ',[ComboBox1.Items.Strings[Combobox1.ItemIndex],StrToIntDef(Trim(Edit2.Text),0)]); //в Combobox1 в первой строке - без фильтра
// и т.д.
if s<>'' then begin
  ADOTable.Filter:=Copy(s,1,Length(s)-5);
  ADOTable.Filtered:=True;
end;

[EgorKa1]

Сообщение от Dvoishnik

так пробуйте

if Length(Edit2.Text) > 0 then filtr:='counts '+Combobox1.Items.Strings[Combobox1.ItemIndex]+' '+Edit2.Text;

1) вы пытались число со строкой сравнить
2) Код с поста #2, 4 строка она там не просто так.(а из свойства текст все удалите)

Всё равно такая ошибка...

[EgorKa1]

Сообщение от Аватар

ADOTable.Filtered:=False;
s:='';
if Trim(EditNaim.Text)<>'' then s:=Format('tovName LIKE ''%s%%'' AND ',[Trim(EditNaim.Text)]);
if Combobox1.ItemIndex>0 then s:=s+Format('counts %s %d AND ',[ComboBox1.Items.Strings[Combobox1.ItemIndex],StrToIntDef(Trim(Edit2.Text),0)]); //в Combobox1 в первой строке - без фильтра
// и т.д.
if s<>'' then begin
  ADOTable.Filter:=Copy(s,1,Length(s)-5);
  ADOTable.Filtered:=True;
end;

Может у меня что-то с программой не то, но ошибка точно такая же, вот:
Снимок1111.PNG

[Аватар]

Дык и написано, что для подчиненной таблицы фильтрацию применить нельзя. Она видимо связана с другим датасетом отношением Master-Detail

[EgorKa1]

Сообщение от Аватар

Дык и написано, что для подчиненной таблицы фильтрацию применить нельзя. Она видимо связана с другим датасетом отношением Master-Detail

можно прогу скину в которой так сделано с подчиненной таблицей.?
Да можете вы поймете что да как.

[Аватар]

Ну если можно - делай

[EgorKa1]

Сообщение от Аватар

Ну если можно - делай

Вот эта программа:
http://rgho.st/6s7zhbhM7
Посмотрите пожалуйста.
Может знаете как сделать главную таблицу и подчиненную через ADOQuery?
А то больше всего что из-за MasterFields нельзя вообще производить фильтрацию.

[Dvoishnik]

можно по ключу связать в

procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
begin

end;

[EgorKa1]

Сообщение от Dvoishnik

можно по ключу связать в

procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
begin

end;

В общем я сделал.
ADOTable поменял на ADODataSet.
Фильтрация по текстовому полю идет.
А вот по тому что выбираю в Combobox1 + Edit2 то не фильтрует, а выводит просто все записи и ошибку: "Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом."

[EgorKa1]

Всё, сделал.
Вот код кому нужно:

procedure TForm1.BitBtn9Click(Sender: TObject);
var s,filtr, add:string;
begin
ADODataSet2.Filtered:=False;
s:='';
if Trim(Edit1.Text)<>'' then s:=Format('tovName LIKE ''%s%%'' AND ',[Trim(Edit1.Text)]);
if Combobox1.ItemIndex>=0 then s:=s+Format('counts %s %d AND ',[ComboBox1.Items.Strings[Combobox1.ItemIndex],StrToIntDef(Trim(Edit2.Text),0)]); //в Combobox1 в первой строке - без фильтра
// и т.д.
if s<>'' then begin
  ADODataSet2.Filter:=Copy(s,1,Length(s)-5);
  ADODataSet2.Filtered:=True;
end;
end;

Тема закрыта.