Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.11.2008, 18:50   #1
MARCH
Пользователь
 
Регистрация: 04.11.2008
Сообщений: 39
По умолчанию Фильтрация данных как в Excel!

Помогите плиз сделать!
Есть Combobox1,Combobox2,Combobox3Combob ox4
нужно что бы по событию ComboboxX.Change он считывал значения Combobox'ов и производил фильтрацию!

Но проблема в том что если я не выбираю в одном из Combobox что нибудь, то он фильтровать отказывается и показывает пустой Grid!
Есть ли такое значение или что нибудь при котором фильтр не будет фильтровать и будет показывать все записи
Вот код программы правда только по двум Combobox:

procedure TForm1.ComboBox1Change(Sender: TObject);
var
b:string;

begin
if ComboBox5.Text<>'' then
b:=string (Combobox5.Text) else
b:=string ('');//может есть такое значение и при котором фильтр не будет фильтровать, а покажет все записи

//получение идентификатора по полю "УСЛУГИ"
Table3.Locate('USLUGA',Combobox1.te xt,[]) ;

//условие фильтрации по полю "УСЛУГИ"
Table1.Filter:='USLUGAID='+QuotedSt r(Table3.FieldByName('USLUGAID').As String)+'and KVARTIRA='+QuotedStr(b);
Table1.Filtered:=true;
end;
Все когда нибудь начинаю, и становятся проффи
MARCH вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Фильтрация данных Gladiator БД в Delphi 4 23.05.2009 12:37
Фильтрация данных на втором листе по данным на первом ppl Microsoft Office Excel 3 13.08.2008 14:07
Вывод данных в Excel Novi4ek Помощь студентам 3 22.05.2008 11:32
Как вытащить данные из Excel в бд dephi, а потом (после работы с данными) сформировать новый файл excel. Геля БД в Delphi 1 10.04.2007 15:11