自己解决 (100分)

T

TonSon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-28

• #1

如何统计一页中的总数

 

姚

姚哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-28

• #2

frmsalePrint.QuickRep1.Preview;这里的预览，执行后下面free了，改成模态预览试试。
frmsalePrint.Free;

 

姚

姚哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-28

• #3

frmsalePrint.QuickRep1.previewModal;

 

C

china_bug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-28

• #4

试试楼上的方法

 

C

china_bug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-28

• #5

if not dm.Items.Eof then
//未遍历完数据集
begin
if not dm.Items.bof then
//第一条记录时不必调用 next------不明白!
dm.Items.Next;
MoreData := True;
//还要打印Detailband
end
是不是死循环了?

 

W

wab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-28

• #6

先将这段去掉，看看是不是这里的原因
else
if (QuickRep1.Page.Length
-QuickRep1.Page.TopMargin
-QuickRep1.Page.BottomMargin
-QuickRep1.CurrentY>20 ) then
//页面有空白(此时数据集中数据已打完)
MoreData := True //还要打印 Detailband

 

T

TonSon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-05

• #7

举手之劳

 

L

lgxyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-28

• #8

frmsalePrint.QuickRep1.previewModal;

 

C

china_bug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-28

• #9

TonSon:不要急呀.
我不是很清楚你想做什么.但我觉得你的代码会出现死循环的.
if not dm.Items.Eof then
//未遍历完数据集
begin
if not dm.Items.bof then
//第一条记录时不必调用 next
//是第一条记录就不NEXT,那么永远都停在第一条记录上了
dm.Items.Next;
MoreData := True;
//还要打印Detailband
end

 

T

TonSon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-01

• #10

OK。

 

T

TonSon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-05

• #11

我看了5415的帖子,呵呵