Текущий архив: 2004.02.02;
Скачать: CL | DM;
Вниз
quickreport и число записей Найти похожие ветки
← →
dimablind (2004-01-09 22:51) [0]Здравствуйте!
Как передать в quickReport число записей таблицы? Это число нужно для подсчета процентного соотношения , считаемое в TQrExpression.
В свойстве expression этого компонента такое:
diseaseCount/RecCount*100
DiseaseCount-поле, RecCount-число записей
С уважением Дмитрий
← →
DCoder © (2004-01-10 12:31) [1]Я в таких случаях вместо экспрешн ставлю TQRLabel, и прописую все вычисления руками
procedure Tqr_schet.QRBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var Pr:Currency;
begin //построчно
Pr:=EngineDM.tbBuffSellFPrice.AsFloat/(1+NDS);
lbPrice.Caption:=FloatToStrF(Pr,fffixed,6,2);
StartSumma:=StartSumma+Pr * EngineDM.tbBuffSellFCount.AsInteger;
lbSumLine.Caption:=FloatToStrF(Pr * EngineDM.tbBuffSellFCount.AsInteger,fffixed,6,2);
end;
А переменную со значением Еаблэ.РэкордКаунт из модуля в модуль не сложно передать.
Обнулять накопительные переменные тут обязательно!!!
procedure Tqr_schet.QuickRepAfterPrint(Sender: TObject);
begin
StartSumma:=0;
....
end;
Страницы: 1 вся ветка
Текущий архив: 2004.02.02;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.02 c
