Фильтр

← →
NickNaz © (2003-12-17 11:22) [0]

Добрый день уважаемые мастера!
У меня следующий вопрос: необходимо написать фильтр для Query по числовому значению. Как-то летом я задавал похожий вопрос, но по строковому значению и фильтр нужен был для Table. Вы по рекомендовали использовать функцию AnsiQuotedStr, она ведь конвертирует лишь строковые значения, а мне необходимо конвертировать число.
Какую функцию вы бы посоветовали?
Спасибо.

← →
Плохиш_ (2003-12-17 11:24) [1]

IntToStr

PS. С такими знаниями и тягой к ним ты далеко не уедещь

← →
NickNaz © (2003-12-17 11:33) [2]

>Плохиш_ (17.12.03 11:24) [1]

Компилирует, но DGrid пуст на удивление!

P.S. Если можно, то без нравоучений

← →
Sandman25 © (2003-12-17 11:37) [3]

[2] NickNaz © (17.12.03 11:33)

Код покажите.

← →
NickNaz © (2003-12-17 11:40) [4]

Sandman25 © (17.12.03 11:37) [3]

procedure TDataModule2.KopiAfterScroll(DataSet: TDataSet);
begin
QOtslKopi.Filtered:=false;
QOtslKopi.Filter :="Nomer_Kopi="+InttoStr(DataSet.FieldByName("Nomer_Kopi").AsInteger);
QOtslKopi.Filtered:=true;
end;

← →
Плохиш_ (2003-12-17 11:43) [5]

А Nomer_Kopi не null случайно?

← →
NickNaz © (2003-12-17 11:46) [6]

Плохиш_ (17.12.03 11:43) [5]

Соответственно нет!

← →
Alex_Bredin © (2003-12-17 11:54) [7]

а так?
QOtslKopi.Filter :="Nomer_Kopi="""+InttoStr(DataSet.FieldByName("Nomer_Kopi").AsInteger)+"""";

← →
VAleksey © (2003-12-17 11:54) [8]

Когда будем использовать OnFilterRecord?
Или связь мастер-деталь?

PS
Но для этого надо действительно читать книги. Увы :-(.

← →
Sandman25 © (2003-12-17 11:57) [9]

[4] NickNaz © (17.12.03 11:40)

Посмотрите QOtslKopi.Filter после его изменения.

← →
Anatoly Podgoretsky © (2003-12-17 12:10) [10]

QOtslKopi.Filter :="Nomer_Kopi="+DataSet.FieldByName("Nomer_Kopi").AsString;

← →
NickNaz © (2003-12-17 12:12) [11]

Ситуация следующая: в таблице Kopi есть поле Nomer_Kopi=1, Nomer_Kopi=2 ... , в таблице OtslKopi есть поле Nomer_Kopi=1.
Значит, если я хочу фильтр по Nomer_Kopi=1 в таблице OtslKopi, то все ОК, но если по Nomer_Kopi=2 в таблице OtslKopi, то происходит вывод все тех же записей, что и по Nomer_Kopi=1, а вывод должен быть пустых записей.

← →
NickNaz © (2003-12-17 12:25) [12]

NickNaz © (17.12.03 12:12) [11]

Скажите что-либо, не молчите... Please

← →
Sandman25 © (2003-12-17 12:26) [13]

Посмотрите QOtslKopi.Filter после его изменения.

О становится Nomer_Kopi=2 ?

← →
JibSkeart © (2003-12-17 12:27) [14]

Код покажите :)

так проше будет взглянуть что вы там натворили :)

ShowMessage(QOtslKopi.Filter); ;)

А почему у тебя именно на этом событие ?

толесть ты смотришь в одной табличке
филтруется в другой ?

Здесь не фильтр нужен а мастер-летайл связь

← →
AlexVas (2004-01-10 13:35) [20]

Просто должен быть filter="2"
" - chr(39)
попробуй так
procedure TDataModule2.KopiAfterScroll(DataSet: TDataSet);
begin
QOtslKopi.Filtered:=false;
QOtslKopi.Filter :="Nomer_Kopi=" + chr(39)+InttoStr(DataSet.FieldByName("Nomer_Kopi").AsInteger)+ chr(39) ;
QOtslKopi.Filtered:=true;
end;

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