Очищаются выражения параметров запросов
Eugene Lachinov
Санкт-Петербург
В процедуре
{ frxCustomDB.pas }
procedure frxParamsToTParams(Query: TfrxCustomQuery; Params: TParams);
var
Item: TfrxParamItem;
...
if Trim(Item.Expression) <> '' then
if not (Query.IsLoading or Query.IsDesigning) then
begin
Query.Report.CurObject := Query.Name;
Item.Value := Query.Report.Calc(Item.Expression);
end;
procedure TfrxParamItem.SetValue(const Value: Variant);
begin
FValue := Value;
FExpression := '';
end;
Если выражение привязано к полю другого набора данных, то значение параметра запроса всегда одно и тоже
{ frxCustomDB.pas }
procedure frxParamsToTParams(Query: TfrxCustomQuery; Params: TParams);
var
Item: TfrxParamItem;
...
if Trim(Item.Expression) <> '' then
if not (Query.IsLoading or Query.IsDesigning) then
begin
Query.Report.CurObject := Query.Name;
Item.Value := Query.Report.Calc(Item.Expression);
end;
procedure TfrxParamItem.SetValue(const Value: Variant);
begin
FValue := Value;
FExpression := '';
end;
Если выражение привязано к полю другого набора данных, то значение параметра запроса всегда одно и тоже
Комментарии