Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Фильтрация данных, продолжение темы 
:(
    Опции темы
bursa
Дата 9.3.2005, 16:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 98
Регистрация: 25.2.2005
Где: Липецк

Репутация: 1
Всего: 1
Читаю тему и не понимаю, в чем проблема.
У меня всегда работала, работает и, надеюсь будет работать конструкция типа

Код

procedure TForm55.SetFilter;
var s:string;
begin

if  DBLookupComboBox1.KeyValue <> -1 then
s:='(KAS='+Form54.Table1.FieldByName('IDK').asString+')'
else
s:='';

if  DBLookupComboBox2.KeyValue <> -1 then begin
if s<>'' then s:=s+ ' and ';
s:=s+'((ID_SS='+Table1.FieldByName('ID_SS').asString+')';
Query23.Active:=false;
Query23.Params[0].asInteger:=Table1.FieldByName('ID_SS').asInteger;
Query23.Open;
while not Query23.Eof do begin
 s:=s+'or(ID_SS='+Query23.FieldByName('ID_SS').asString+')';
 Query23.Next;
end;
Query23.Active:=false;
s:=s+')';
end;

if  ComboBox1.ItemIndex > 0 then begin
if s<>'' then s:=s+ ' and ';
if  ComboBox1.ItemIndex = 1 then
s:=s+'(summa>0)' else
s:=s+'(summa<0)';
end;

if Query1.Filter<>'' then begin
if s<>'' then
Query1.Filter:='('+Query1.Filter+')and'+s;
end else
Query1.Filter:=s;

end;


, где SetFilter вызываю при изменении и он клике
DBLookupComboBox1 и др

Добавлено @ 16:36
И даже не ставлю
Код

Filtered:=false;
Filtered:=true;


- и так работает
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0408 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.