Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.10;
Скачать: CL | DM;

Вниз

Фильтрация   Найти похожие ветки 

 
Smeagol   (2003-03-21 16:24) [0]

Здравствуйте, помогите пожалуйста, очень срочно нужно, как осуществить фильтрацию по 2 или более полям.
По одному полю я на EDIT OnChange ставлю следующий код:
Form1.Table1.Filter := "city=""" + Edit1.Text + "*""";
if Edit1.Text <> "" then Form1.Table1.Filtered := True
else Form1.Table1.Filtered := False;
Может можно как похожим способом провести фильтрацию хотя бы по 2 полям?
Заранее БОЛЬШОЕ спасибо


 
Stas ©   (2003-03-21 16:36) [1]

Конечно можно!!!
Form1.Table1.Filter := "city=""" + Edit1.Text + "*" and ""+Edit2.Text+"*""";
if Edit1.Text <> "" then Form1.Table1.Filtered := True
else Form1.Table1.Filtered := False;

Вместо and можно вписать or


 
Smeagol   (2003-03-21 16:37) [2]

Уважаемые, ПОМОГИТЕ, PLEAZzzz


 
Соловьев ©   (2003-03-21 16:43) [3]

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1048251729&n=1


 
Smeagol   (2003-03-21 16:57) [4]

Stas, твой код неработает, пожалуйста, у меня уже голова не варит, скажи, в чем дело?
У меня есть таблиц с 3 полями, City, Address, Name
Мне нужно отфильтровать одновременно по полям City и Address

Когда пишу твой код выдает ошибку: Operator not aplicable to this operand type в строчке
Form1.Table6.Filter := "City=""" + Edit1.Text + "*" and "Address=" + Edit2.Text+ "*""";


 
Stas ©   (2003-03-21 17:03) [5]

У тебя нужно поставить пробел за первой звездочкой :-)!!!
Form1.Table6.Filter := "City=""" + Edit1.Text + "* " and "Address=" + Edit2.Text+ "*""";
Вот так.


 
Anatoly Podgoretsky ©   (2003-03-21 17:05) [6]

Form1.Table6.Filter := "City=" + QuotedStr(Edit1.Text + "*") + " and Address=" + QuotedStr(Edit2.Text + "*");



 
Smeagol   (2003-03-21 17:08) [7]

Stas, Извини, но все равно не работает :(((


 
Соловьев ©   (2003-03-21 17:10) [8]

а чем OnFilterRecord не устроил?


 
Smeagol   (2003-03-21 17:19) [9]

Всем большое спасибо, особенно, Анатолию, все работает, все ok



Страницы: 1 вся ветка

Текущий архив: 2003.04.10;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.014 c
1-30374
PAI
2003-03-28 18:30
2003.04.10
Как отлавливать такие ошибки?


3-30262
OneOfTheFew
2003-03-20 13:29
2003.04.10
DELPHI, Paradox и древовидные структуры данных


3-30287
Сергей
2003-03-22 13:23
2003.04.10
Как выдернуть с помощью SELECT (TQuery) поле с именем


1-30455
Pokemon
2003-03-31 12:23
2003.04.10
Файлы проекта


3-30223
off
2003-03-21 16:02
2003.04.10
Не могу разобраться с Filter в IBQuery и IBDataSet.