PDA

View Full Version : نقل به صفحه بعد درfastreport



bps20590
جمعه 19 آبان 1385, 09:37 صبح
سلام خدمت دوستان
عزیزانی که برنامه مالی کار کردن حتما در قسمت دفاتر و ترازشون دیدن که ممکنه کاربر ازشون خواسته باشه که یک جمع عدد به عنوان نقل از صفحه برای کاربر بذارن.
منظور اینه که برنامه، اعداد هر صفحه رو جمع کنه و در انتهای صفحه نمایش بده و در ابتدای صفحه بعد عدد جمع صفحه قبل رو در ابتدای صفحه نشون بده. با این نکته که اگر جمع اعداد صفحه 1 عدد A شد و عدد A در ابتدای صفحه 2 نشان داده شد، اعدادی که در صفحه 2 می خواهند جمع شوند، شامل عدد A هم باشند و طبعا در انتهای صفحه 2 شما جمع A+B را خواهید داشت و همینطور این روال تا صفحه آخر ادامه دارد.
میشه لطفا راهنمایی کنین چطوری میشه این کار رو انجام داد؟

فرزاد دلفی باز
سه شنبه 23 آبان 1385, 15:49 عصر
این مشکل من هم هست در Quick rep به راحتی انجام میشه در Fast نه.....

محمد دادودنیا
جمعه 03 آذر 1385, 06:23 صبح
memo1.text[0]=sum'اسم فیلد'+memo1.text[0]
درست یادم نیست تست می کنم بهت می گم

فرزاد دلفی باز
جمعه 03 آذر 1385, 11:30 صبح
محمد آقا دستت درد نکه اگه بطور کامل بگی چی باید بکنیم ازت ممنون میشیم.......

Touska
دوشنبه 06 آذر 1385, 13:16 عصر
در Page Header یک Memo با نام Memo4 (مثال) و خالی باقی بذارید.

در Page Footer یک Memo با نام Memo5 (مثال) و خالی باقی بذارید.

و در OnAfterData مومی 5 این کد را بنویسید :


Var Sums : Integer;

Procedure .....OnAfterGetData(Sender : ..);
Begin
Sums := StrToInt(Trim(Memo6.Memo.Text)) + Sums;
Memo4.Memo.Text := IntToStr(Sums);
End;

Begin
Sums := 0;
End.

که Memo6 همان چیزی هست که می خواهید جمع ببندید و به صفحه بعد نقل کنید.

موفق باشید :)

mehdi_moosavi
دوشنبه 13 آذر 1385, 12:26 عصر
من با Fastreport 2.5 کار میکنم و چیزی بنام OnAfterGetData یا OnAfterData پیدا نکردم.
لطفا بیشتر توضیح بدید
با تشکر