Текущий архив: 2003.10.06;
Скачать: CL | DM;
Вниз
QReport Найти похожие ветки
← →
Julliete (2003-09-22 16:35) [0]Здравствуйте мастера, у меня такой вопрос,
у меня в Qreport есть QRExpr который считает сумму на каждой странице. Как мне забрать значение QRExpr и присвоить его QRLabel еще до открытие отчета. Я делаю так:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.QRLabel13.Caption:=FloatToStr(Form2.QRExpr1.Value.intResult);
Form2.QuickRep1.Prepare;
Form2.QuickRep1.Preview;
end;
получаю ахинею.
Скажите, что я делаю не так.
← →
pasha_676 © (2003-09-22 16:46) [1]Лучше получение суммы включить в SQL запрос.
← →
Julliete (2003-09-22 17:06) [2]pasha_676, да согласна, но QRExpr просчитывает сумму на каждой странице отчета, и сумма тех данных которые отображены на странице. Т.е я имею сумму (итого) для каждой страницы, как это сделать без QRExpr с помощью SQl ?
← →
Johnmen © (2003-09-22 17:08) [3]Сначало надо сгенерить, что хочешь получить, а потом уж получать.
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.QuickRep1.Preview;
end
В BeforePrint бенда с QRLabel13 делаешь
Form2.QRLabel13.Caption:=FloatToStr(Form2.QRExpr1.Value.intResult);
← →
Johnmen © (2003-09-22 17:12) [4]>Julliete (22.09.03 17:06)
Зачем же для этого еще и QRLabel то ???????
← →
Julliete (2003-09-22 17:25) [5]Johnmen, спасибо.
Что бы потом эту сумму еще и прописью написать на каждой странице. То есть фунция
SumString(StrToFloat(QRLabel13.Caption))
← →
Johnmen © (2003-09-22 17:34) [6]Я опять не все уловил...:)
1. Если это деньги, то почему intResult ???
2. Зачем лишние преобразования ???
SumString(QRExpr1.Value.dblResult)
← →
Julliete (2003-09-22 17:40) [7]Не получается BeforePrint, QRExpr одно значение, а Qrlabel стоит ноль (
← →
Johnmen © (2003-09-22 17:51) [8]Подробности :
Какой бенд, где расположен QRExpr, где расположен Qrlabel ?
← →
Julliete (2003-09-22 17:51) [9]Johnmen, Вы все правильно уловили, так я и делаю, цель, на каждой странице проставить сумму прописью, сумму данных с страницы я получаю с помощью QRExpr. А вот забрать результат с QRExpr и подставить его в SumString(), никак не получается. На BeforePrint я повесила процедуру:
procedure TForm8.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
qrLabel13.Caption:=FloatToStr(QRExpr1.Value.dblResult);
end;
результат: QRExpr1=978,16 - QRlabel13=7.9544551165451E-323
что то не так?
← →
Julliete (2003-09-22 17:55) [10]QRExpr и QRlabel расположены в Page Footer
← →
Johnmen © (2003-09-22 17:55) [11]>Julliete (22.09.03 17:51)
BeforePrint для бенда, на котором лейбл/экспрешн
← →
Julliete (2003-09-22 17:59) [12]Да, да получилось, огромное спасибо!!!
Страницы: 1 вся ветка
Текущий архив: 2003.10.06;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.02 c
