Значение DBLookupComboBox

[MARCH]

Да! именно это и исправил! Спасибо!

Сообщение от mihali4

Не так сумбурно. Попытайтесь описать проблему с повторным OnChange подробнее, с указанием компонентов и порядка производимых вами манипуляций, а также полученных результатов.

Вообщем ситуация такая! При первом вызове события Combobox1.Change, фильтрация срабатывает, дальше вызываю событие Combobox2.Change, фильтрация срабатывает как и должно, вызываю Combobox1.Change повторно, но с другим значение, Grid становится пустым!
Просто в Table1.Filter получается выражение Combobox1+Combobox2+Combobox1, он добавляет условие но не проверяет и не заменяет старое на новое!

Пробовал при каждом вызове события Change, проверять все текущие значения у каждого Combobox'а, а потом составлял новое условие фильтрации, но если значение "все записи", то я ставил Combobox1.text значение '', Delphi компилирует, но при вызове функции я получаю пустой Grid!

[MARCH]

Может в моей ситуации придется выполнять для каждого Change все возможные комбинации, т.е.
если Combobox1.text<>'Все записи' и Combobox2.text='Все записи', то
Table1.filter:='USLUGAID='+QuotedSt r(Table3.FieldByName('USLUGAID').As String);
Хотя это глупо и долго но должно работать!

[mihali4]

но не проверяет и не заменяет старое на новое

Во-первых, об этом речи и не шло.
Во-вторых. Ваш метод "Хотя это глупо и долго но должно работать!" действительно будет работать, но...
Есть другой подход - по каждому OnChange фильтр формируется заново. То есть при изменении ComboBox1.Text происходит очищение фильтра, а затем последовательный просмотр всех нужных ComboBox-ов на предмет неравенства текста фразе "Все записи" и подстановке в этом случае "куска" фильтра.
Самое главное - обработчик для всех ComboBox-ов один и тот же.

[MARCH]

Да это будет работать, просто у меня 8 элементов, а это порядка 250000 комбинаций

[MARCH]

А существует ли значение при котором filter покажет все записи в одной из колонок?

[mihali4]

А существует ли значение при котором filter покажет все записи в одной из колонок?

А в остальных колонках - отфильтрованные записи? Бред.

просто у меня 8 элементов, а это порядка 250000 комбинаций

Какие комбинации??? Вы хоть прочитали, что я вам предложил? Там 8 строк кода... Нужно последовательно просмотреть текст в ваших восьми комбобоксах и, если там не "Все записи", то добавить это значение в фильтр...

[MARCH]

Сообщение от mihali4

Какие комбинации??? Вы хоть прочитали, что я вам предложил? Там 8 строк кода... Нужно последовательно просмотреть текст в ваших восьми комбобоксах и, если там не "Все записи", то добавить это значение в фильтр...

А как добавить это значение в фильтр! Мыхалыч напишите хотябы для одного Comboboxa, а то я уже собирался писать все комбинации

[mihali4]

хотябы для одного Comboboxa

Для одного и пишется. Остальным этот же обработчик назначается. (Впечатление такое, что я стою в лесу и говорю сам с собой... Развивайте внимательность!)
Возвращаемся на первую страницу этой темы:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text<>'Все записи' then
Table2.Filter:='Kodtov='+QuotedStr(ComboBox1.Text) else
Table2.Filter:='';
end;

Немного переделываем:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Table2.Filter:='';
if ComboBox1.Text<>'Все записи' then
if Table2.Filter>' ' then
Table2.Filter:=Table2.Filter+' and Kodtov='+QuotedStr(ComboBox1.Text) else
Table2.Filter:='Kodtov='+QuotedStr(ComboBox1.Text);
// выделенное красным повторяем для оставшихся "неохваченными"
// комбобоксов ComboBox2, ComboBox3...ComboBox8 ЗДЕСЬ ЖЕ !
end;

[MARCH]

Спасибо! Я вам написал, а потом только дошло до меня, начал делать но немного не так, в принципе я уже дошел до этого вида, и увидел что выприслали!