ساخت شماره ردیف در quick Report
سلام دوستان من برای ساخت شماره ردیف یک qrlabel داخل qrsubdetails به صفحه آوردم و یه متغیر به نام radif به صورت public تعریف کردم .و در رویدادهای مربوط به شکل زیر عمل کردم
procedure TForm23.QRLabel22Print(sender: TObject; var Value: string);
begin
Value:=currtostr(radif);
end;
procedure TForm23.QRSubDetail1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
radif:=radif+1;
end;
حالا مشکل اینه که توی سیستم گزارش که میگیرم هیچ مشکلی نیست و همه ش ردیف ها پشت سر هم اومده اما روی کاغذ چاپ شده از آخرین شماره ردیف به بعد چاپ میکنه . علت چیست؟ ضمنا با چاپگرهای مختلف تست گرفتم. (خواهش میکنم اگر کسی میدونه اعلام نظر کنه )
نقل قول: ساخت شماره ردیف در quick Report
پاسخ سوال که پیدا نشد اما یه راه حل بهتر که متوجه شدم میزارم که دوستان هم استفاده کنند/
یه QRLabel داخل QRSubDetail بگذارید و در رویداد beforeprint ساب دیتیل کد زیر رو قرار بدهید./
QRLabel1X.Caption:= currToStr(DataModuleX.ADOQueryX.RecNo);
امیدوارم مورد استفاده دوستان قرار بگیره
نقل قول: ساخت شماره ردیف در quick Report
شماره سطر که خود دلفی داره
rbDetail
در
QRSysData
نقل قول: ساخت شماره ردیف در quick Report
نقل قول:
نوشته شده توسط
fakhravari
شماره سطر که خود دلفی داره
rbDetail
در
QRSysData
بله موافقم اما متاسفانه اون عمل نمیکنه...
نقل قول: ساخت شماره ردیف در quick Report
در قسمت DetailBand از تب Qreport يك کامپوننت از نوع QRexpr قرار دهید و درقسمت Exprssion آن دستور (Sum(1 را بنویسید . در هنگام اجرای برنامه شماره ردیف زده خواهد شد و هركجا كه بخواهيد مقدار آن را صفر کنید دستور QRexpr.Reset را بنويسيد .
نقل قول: ساخت شماره ردیف در quick Report
خیلی ممنون . استفاده کردم از راهنمای جنابعالی .