Подскажите пожалуйста! Нужно сделать фильтр по Edit и двум Combobox. Всё уже перелопатил. Вот последний вариант
Код:
procedure Trab.ADOQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
var FieldVal,FieldVal1, FieldVal2:string;
begin
FieldVal := DataSet['Заводской_номер'];
Accept := copy(FieldVal, 1, length(edit1.text)) = edit1.Text;
FieldVal1 := DataSet['Наименование_СИ'];
Accept := copy(FieldVal1, 1, length(combobox1.text)) = combobox1.Text;
FieldVal2 := DataSet['Цех'];
Accept := copy(FieldVal2, 1, length(combobox2.text)) = combobox2.Text;
end;