设计了一个购销系统，打印出入库单时要求每页打印5---6行记录，其它方法我也不会，就在报表源表里增加一个用于分组的字段，使它每5---6个记录输入一个相同的值，然后在打印报表时以此字段作为分组依据，总体还可以，但是，打印到最后一页不足5--6个记录时，就会比前面的报表短一点，我想用空表格来补齐，但是没想到办法。请高手指点。我是这样写的：
CLOSE all
SET TALK off
SET SAFETY OFF

USE ztsytbl
COPY STRUCTURE TO ss
ALTER TABLE ss ADD COLUMN Fax I(4)
SELECT ss

APPEND FROM ztsytbl FIELDS khname,yj
GO top
FOR n=1 TO RECCOUNT()
IF NOT EOF()

REPLACE fax WITH CEILING(RECno()/5)
skip
endif

ENDFOR
REPORT FORM dybb.frx TO PRINTER prompt












[ 本帖最后由 ilikeflash 于 2011-5-3 22:14 编辑 ]

谢谢各位提示，我把命令这样改了一下，已经成啦。
CLOSE all
SET TALK off
SET SAFETY OFF
USE ztsytbl
COPY STRUCTURE TO ss
ALTER TABLE ss ADD COLUMN Fax c(20)
SELECT ss
APPEND FROM ztsytbl FIELDS khname,yj

IF RECCOUNT()/5<>0
FOR i=1 TO 5-MOD(RECCOUNT(),5)
APPEND BLANK
endfor
 endif


GO top
FOR n=1 TO RECCOUNT()
IF NOT EOF()
REPLACE fax WITH STR(CEILING(RECno()/5))
skip
endif
ENDFOR
REPORT FORM dybb.frx TO PRINTER prompt