رست كردن شماره رديف در هر صفحه

[maisam57]

من ميخوام كه شماره رديف در هر صفحه از يك شرو بشه براي اين كار:

var myline:integer;



procedure MasterData1OnBeforePrint(Sender: TfrxComponent);

begin

  inc(myline);

  Memo12.text :=inttostr(myline);              

end;



procedure PageHeader1OnAfterPrint(Sender: TfrxComponent);

begin

  myline := 0;  

end;

ولي بمحض اجرا:

[Modernidea]

شما بیا یک کار کن بگو چیکار؟
ببین هر صفحه چندتا سطر جا میگیره بعد یه شمارنده بزار و ریف را به اون انتصاب بده و یه شرط بزار که زمانی که شمارنده با تعداد سطر ها برابر شد، شمارنده رو صفر کنه.

البته راهی که شما رفتی جالبه و حالا که جواب نگرفتی مجبوری دیگه از این راه کج استفاده کنید.

این کدها رو هم که میدونی باید در همون چیز MasterData بنویسی دیگه.
یاهوو

[maisam57]

نه دوست من نميتونم و نميدونم توي هر page چندتا record جا ميگيره.
من كارمو درست انجام دادم ولي نميدونم چرا آخرين رديف آخرين ركورد توي صفحه بعدي چاپ ميشه.

[khoshblagh]

به جای After از Befor استفاده کن
procedure PageHeader1OnBeforPrint

[maisam57]

به جای After از Befor استفاده کن

var myline:integer;



procedure MasterData1OnBeforePrint(Sender: TfrxComponent);

begin

  inc(myline);

  Memo12.text :=inttostr(myline);              

end;



  procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);

begin

  myline := 0;

end;

هيچ تغييري نكرد