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

[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;

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