[Vesnushka87]

написала код на кнопку:

Код:

procedure TMainForm.BitBtn2Click(Sender: TObject);

var filtr, // формируемая строка фильтра
add: string;
begin
DataModule2.StudentQuery.filtered:=true;
filtr:='';
if length(Combobox1.text) > 0 then
filtr:= 'spec LIKE '+ #39 + Combobox1.Text + '%' + #39;

if length(Combobox2.text) > 0 then
begin
if length(filtr) > 0 then add:= ' and ' else add:='';
filtr:=filtr + add + 'year LIKE '+ #39 + Combobox2.Text + '%' + #39;
end;


if length(filtr) > 0 then
begin
DataModule2.StudentQuery.Filter:= filtr;
DataModule2.StudentQuery.filtered:=true;
end
else Showmessage('Все поля пусты!');
end;

lmikle: Хде теги???

если combobox пусты то при нажатии на кнопку выходит сообщение, а если я выбираю что-либо из выпадающего списка и нажимаю на кнопку то таблица просто пустеет и не фильтрует. В чем м.б. ошибка ??