Отчет с отчета (QuikReport)

← →
Mintos (2006-07-20 12:57) [0]

Кто может подсказать, как можно поучить все выведенные значения QRExpr`а в StringList формате?
Если непонятно спрашивайте, опишу конкретно для чего это надо...

← →
Sergey13 © (2006-07-20 13:00) [1]

А зачем для этого QR? Пробегись по "отчетному" датасету да посчитай по такому же выражению.

← →
Mintos (2006-07-20 14:29) [2]

Дело в том что отчет с прим. QR`а был давно уже написан, в нем имеется QRExpr, Expression которого задается програмно и зависит от очень многих факторов. Переписывать логику QR`а(Expression) в паскаль займет очень много времени...
Поэтому думаю оптимальным пока вариантом будет получить выходные данные из QRExpr`а в StringList (Мне нужно этот же отчет выводить и в Worde).

← →
Виталий Панасенко (2006-07-20 15:02) [3]

procedure TForm1.DetailBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
FSum := FSUm + QRExpr1.Value.dblResult;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FSum := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
QuickRep1.PreviewModal;
Button1.Caption := FloatToStr(FSum);
end;

← →
Mintos (2006-07-20 15:32) [4]

В моем случае результат текст (strResult).
Сенкс, очень помог.

Отчет с отчета (QuikReport) Найти похожие ветки