[Tokariy]

Люди подскажите, пожалуйста, что не так. При выборе 1 радиокнопки надо вывести список оборудования у которого не указаны даты окончания, при 2 радиокнопке только список оборуд. у которого дата окончания есть16.jpg

[Electronic_Arts]

Попробуй так

Код:

if not (datamodule4.query4.fieldbyname('Data_okon').value='') then

[Tokariy]

не помогло

[Electronic_Arts]

Дай исходник исправлю и верну..

[Tokariy]

блин, что то немного в условии не так и всего то .. но вот что?
народ, посмотрите свежим взором, пожалуйста...

[Electronic_Arts]

Само условие не правильное - пустоты проверяются так

Код:

if datamodule4.query4.fieldbyname('Data_okon').isnull then

а вот как фильтровать что бы показать именно пустые значение - я не знаю...

[lmikle]

Например, сесть на событие OnFilterRecord. И брать поле AsString, тримать его и сравнивать с пустой строкой.

А вообще, я бы сделал динамический запрос. Просто в зависимости от выбранной радиокнопки дописываешь в условие IS NULL или NOT IS NULL.

[Tokariy]

а можно как нибудь по подробнее? примерный текст набросайте, если не сложно

если имеете ввиду так

Код:

if  RadioGroup1.ItemIndex=0 then
   begin
     if Datamodule4.Query4.FieldByName('Data_okon').IsNull then
     Datamodule4.Query4.Filtered:=true;
     Form17.QuickRep1.Preview;
   end;

     if  RadioGroup1.ItemIndex=1 then
   begin
     if not Datamodule4.Query4.FieldByName('Data_okon').IsNull then
     Datamodule4.Query4.Filtered:=true;
     Form18.QuickRep1.Preview;
   end;

Админ: Пользуемся тегами для оформления кода!

то не вышло

[Tokariy]

для первой кнопки работает!

Код:

  if  RadioGroup1.ItemIndex=0 then
   begin
     Datamodule4.Query4.Filter:='(Data_okon=null)';
     Datamodule4.Query4.Filtered:=true;
     Form17.QuickRep1.Preview;
   end; 

но что делать со второй кнопкой? если писать Data_okon=not null то не воспринимает

[Tokariy]

а вот и для второй)))

Код:

  if  RadioGroup1.ItemIndex=1 then
   begin
     Datamodule4.Query4.Filter:='(Data_okon<>null)';
     Datamodule4.Query4.Filtered:=true;
     Form18.QuickRep1.Preview;
   end;

Спасибо всем кто помогал и навёл на верный ход мыслей