Query OnFilterRecord

← →
Al11 © (2003-02-25 13:48) [0]

Почему отбирая запись в Query
следующим образом
В OnFilterRecord:
Accept:=Query["XXXXX"]>100;Query не отфильтровывается по вычисляемым полям (вместо XXXXX - вычисляемое поле),
а не вычисляемые работают нормально
и как это можно сделать (в смысле по вычисл. отфильтр.) ?!?!?!?!?

← →
Al11 © (2003-02-25 15:56) [1]

← →
Соловьев © (2003-02-25 16:00) [2]

> Accept:=Query["XXXXX"]>100

Может так:
... Accept := (Query.FieldByName("XXXX").AsInteger>100); ...

← →
Johnmen © (2003-02-25 16:06) [3]

Вообще-то, д.б. нормально...
Попробуй явное приведение типа :
Accept:=Query.FieldByName("XXXXX").AsInteger{AsFloat}>100

← →
Al11 © (2003-02-26 14:30) [4]

Создал Paradox-табличку (XXX) с полями
A : LongInteger - Key
B : LongInteger
C : Currency
D : LongInteger
E : Currency
В Project на форму положил DataBase1, DataSource1, Query1, DbGrid1, Button1
Query с полями (Таблички XXX)
A : Integer - Key
B : Integer
C : Currency
D : Integer
E : Currency
BD: Integer
CD: Currency
в OnCalcFields:
Query1BD.Value:=Query1B.Value+Query1D.Value;
Query1CE.Value:=Query1C.Value+Query1E.Value;
в OnFilterRecord:
Accept := Query1.FieldByName("BD").AsInteger>50;
DbGrid1 (cвойство DataSource:="DataSource1")
DataSource (cвойство DATASET:="Query1")
Button1
В OnClick:
Query1.Filtered:=true; (изначально false)
Заполним табличку значениями
Жмем Run
Grid заполнен. Жмем Button1
Grid пустой!!!!
Если в OnFilterRecord: вместо
Accept := Query1.FieldByName("BD").AsInteger>50;
поставим
Accept := Query1.FieldByName("B").AsInteger>50;
все работает для этого не вычислямого поля
может что не так написал !?!?!?!?!?!?!?!

← →
Johnmen © (2003-02-26 14:51) [5]

Единственное критическое место, мною обнаруженное :
попробуй
в OnCalcFields: Query1BD.As...:=Query1B.As...+Query1D.As...; Query1CE.As...:=Query1C.As...+Query1E.As...;

← →
Al11 © (2003-02-26 15:33) [6]

Пожалуйста,
в OnCalcFields:
Query1BD.AsInteger:=Query1B.AsInteger+Query1D.AsInteger;
Query1CE.AsCurrency:=Query1C.AsCurrency+Query1E.AsCurrency;
Результат тот же.
Может альтернативу какую подскажете для фильтрации по выч. полям.
А то не знаю что и делать ?????!!!!! а надо бы, очень...

← →
Al11 © (2003-02-26 15:39) [7]

← →
Соловьев © (2003-02-26 15:48) [8]

Делай вычисления в onFilterRecord:
Accept := (Query.FieldByName("XXXX").AsInteger+Query.FieldByName("YYYYY").AsInteger)>100;

← →
Johnmen © (2003-02-26 15:51) [9]

Непонятки....А поля точно Calculated ? Так и были созданы ?

Ну если уж не получается по вычислимым, то просто по обычным :
Accept := (Query1.FieldByName...+Query1.FieldByName...)>50;
Какая разница, где вычислять.....:)

← →
Johnmen © (2003-02-26 15:59) [10]

>Соловьев ©

Опять забавная синхронность...:)))

Прям мысли читаешь :)))

Поля точно Calculated.
Так Accept := (Query1.FieldByName...+Query1.FieldByName...)>50
все работает,
Но если вычисления (расчеты в полях) - Большие, Замучаешся!!!!

Спасибо за советы!!!
Не первый раз уже выручаете (синхронно!!!)...

Query OnFilterRecord Найти похожие ветки