FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Fastreport ,How to onafterprint runs a "dbskip"
Posts: 474
Joined: Sun Oct 30, 2005 06:37 AM
Fastreport ,How to onafterprint runs a "dbskip"
Posted: Tue Jan 21, 2014 09:06 AM

Hi,
Table:
itemid qty
001 1.1
002 2.1
003 3.1
004 4.1
...

FrPrn:SetUserDataSet("masterdata",'itemid;qty'},;
{|| odbprn2:GoTop()} ,;
{|| odbprn2:SKIP(1)},;
{|| odbprn2:SKIP(-1) },;
{|| odbprn2:EOF() },;
{|aField|odbprn2:FIELDGET(afield)})
end

want print result :
itemida qtya itemidb qtyb
001 1.1 002 1.2
003 3.1 004 4.1
...
I want write a procedure , put an event to qtya column as onAfterprint skipOnAfterPrint()
like :

procedure skipOnAfterPrint(Sender: TfrxComponent);
begin
xxx.skip(1)
end;

begin
end.

What is xxx ?

Thanks !
Shuming Wang

http://www.xtech2.top
Mobile:(86)13802729058
Email:100200651@qq.com
QQ:100200651
Weixin: qq100200651

Continue the discussion