Скачать: CL | DM;

Отчет с отчета (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).
Сенкс, очень помог.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.06 c