Quickrep的页码问题(30分)

D

dohye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-13

• #1

procedure TLongFrm.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
begin
QRLabel5.Caption := IntToStr( QuickRep1.PageNumber);
Inc(Count);
if Count=100 then
MoreData := False else
MoreData := true;
end;
Quickrep1没有设Dataset属性.
这段代码执行后为什么每一页的第一个纪录
QRLabel5.Caption标识的页码为前一页的
页码,如第一页第一个纪录QRLabel5.Caption
标识的页码为0;

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-13

• #2

在OnStartPage中试试?

 

D

dohye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-14

• #3

然而我要的是在填写每一个纪录时
得到当前的的页码,

 

L

liwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-14

• #4

QRLabel5.Caption := IntToStr( QuickRep1.PageNumber);
改成
QRLabel5.Caption := IntToStr( QuickRep1.PageNumber)+1;
不就得了.

 

O

okmy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-09-04

• #5

在此事件中QuickRep1.PageNumber尚未更新.

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-14

• #6

接受答案了.