Цитата:
Сообщение от Appolon
Тебе тоже доброго времени суток!!
Если у тебя поле название текстовое тогда правильнее будет написать проседуру вот так:
Код:
procedure TForm1.NazFilterChange(Sender: TObject);
begin
If Length(NazFilter.Text)>0 then
begin
ADOTable1.Filter:='Название like '+#39+NazFilter.Text+#42+#39;
ADOTable1.Filtered:=true;
end
else
ADOTable1.Filtered:=false;
end;
,где #39-это апостроф, а #42-это звездочка.
что касаемо нескольки полей, то по идее вот:
ADOTable1.Filter:='Название like '+#39+NazFilter.Text+#42+#39+' and Название2 like '+#39+NazFilter.Text+#42+#39+' and Название3 like '+#39+NazFilter.Text+#42+#39+' and Название4 like '+#39+NazFilter.Text+#42+#39;
Удачи!!
|
Спс очень помогло ))))
Вот еще вопросик можно ли в делфи создать отчет и вывести его на печать? Если можно подскажите как!! А то от нашего Любимого препода не добьешься не чего!