ПОИСК

[FIIR]

У меня пару едитов по которым будет вестись поиск, и дбгрид
и такой обрабодчик нажатия кнопки

var w, p, v, x, g: string;
begin
w:='%'+NAIMEN.Text+'%';
p:='%'+GKOD.Text+'%';
v:='%'+EDIZMER.Text+'%';
x:='%'+KORRCHET.Text+'%';
g:='%'+CENA.Text+'%';
QCENSKLAD.Close;
QCENSKLAD.SQL.Clear;
QCENSKLAD.SQL.add('SELECT CENID AS ИДЕНТИФИКАТОР_СТРОКИ, GKOD AS КОД_ГРУППЫ, NAIMEN AS НАИМЕНОВАНИЕ, EDIZMER AS ЕДЕНИЦЫ_ИЗМЕРЕНИЯ, KORRCHET AS КОРРЕСПОНД_С4ЕТ, CENA AS СРЕДНЯЯ_ЦЕНА, ');
QCENSKLAD.SQL.add(' NSALDO AS САЛЬДО_НА_НА4АЛО, NKOLICH AS НА4АЛО\КОЛЛИ4ЕСТВО, NSUMMA AS НА4АЛО\СУММА, PKOLICH AS ПОСТУПЛЕНИЕ\КОЛЛИ4ЕСТВО, PSUMMA AS ПОСТУПЛЕНИЕ\СУММА, RKOLICH AS РАСХОД\КОЛЛИ4ЕСТВО, ');
QCENSKLAD.SQL.add(' RSUMMA AS РАСХОД\СУММА, KSALDO AS САЛЬДО_НА_КОНЕЦ, KKOLICH AS КОЛИ4ЕСТВО, KSUMMA AS КОНЕЦ\СУММА, VIDID AS КОД_ВИДА_ТОВАРА ');
QCENSKLAD.SQL.Add(' FROM CENSKLAD.DB WHERE NAIMEN like ('+#39+w+#39+') and GKOD like('+#39+p+#39+') and EDIZMER like('+#39+v+#39+') and KORRCHET like('+#39+x+#39+') and CENA like('+#39+g+#39+')');
QCENSKLAD.Active:=True;

проблема: query не активируется, пишет type mismatch expression
у кого какие идеи есть, помогите пожалуйста!

[Alexij]

Переменным задай другой формат!А фильтрацию не пробовал ставить на OnKeyUp?

[master-sheff]

Ты пишиш так
QCENSKLAD.SQL.add('SELECT CENID AS ИДЕНТИФИКАТОР_СТРОКИ, GKOD AS КОД_ГРУППЫ, NAIMEN AS НАИМЕНОВАНИЕ, EDIZMER AS ЕДЕНИЦЫ_ИЗМЕРЕНИЯ, KORRCHET AS КОРРЕСПОНД_С4ЕТ, CENA AS СРЕДНЯЯ_ЦЕНА, ');

Мне кажется тут нельзя переносить на новую строчку, или если переносить то писать строчки плюсуя.

[FIIR]

Он пишет несовпадение типов, значит дело в другом.
у меня поля GKOD и CENA в базе имеют тип short и number, может из за
этого, хотя такая же процедура в других прогах у меня работала и такой ошибки не появлялось.