在你的数据表中添加一个字段,该字段作为数据报表分页的依据。在你的调用报表的表单中添加一个文本框,该文本框中输入的数据作为你分组的依据,在打印的Click代码中添加如果代码:
nfy=ThisForm.Text1.Value &&该值为你在文本框中输入你想分页的数字,可以是10,也可以是15,或者20
GO TOP
j=1
DO WHIL !EOF()
I=1
DO WHIL !EOF() AND I<=NFY &&
REPL FYYJ WITH I &&假设你在数据表中添加分页依据的字段是FYYJ,这个字段名是什么由你本人自定
SKIP
I=I+1 &&每次递增1,满足分页条件就退出
ENDDO
j=j+1 &&另外起一页
ENDDO
nfy=ThisForm.Text1.Value &&该值为你在文本框中输入你想分页的数字,可以是10,也可以是15,或者20
GO TOP
j=1
DO WHIL !EOF()
I=1
DO WHIL !EOF() AND I<=NFY &&
REPL FYYJ WITH I &&假设你在数据表中添加分页依据的字段是FYYJ,这个字段名是什么由你本人自定
SKIP
I=I+1 &&每次递增1,满足分页条件就退出
ENDDO
j=j+1 &&另外起一页
ENDDO
学习交流VFP,QQ:248561326。