自己写代码设计表单

打开报表-报表设计模式下，右键-数据环境-右键点中表-移去。
双击表单-init事件写:
public nRec
use xxxx.dbf alias xx
nRec=0
在打印按钮click事件写:
nRec=nRec+1
select xx
go nRec
if !eof()
    report from xxxx.frm next 1 to printer
else
    =message("打完收工"，"提示"，64)
endid
return

[ 本帖最后由 whinda 于 2014-1-24 19:28 编辑 ]

report ....  next 1.……,改为next 1哈。写错了

把要打印的当前记录COPY到一个临时表AA，用AA作报表的数据源，打印肯定没问题的

上传报表和相关表。

我找到解决方法，把表单其中一“唯一字段”做关键字，到报表中去搜索
如下
REPORT FORM d:\xfdj\表1.frx FOR ALLTRIM(编号)=ALLTRIM(thisform.编号.Value)TO PRINTER PREVIEW IN screen

[ 本帖最后由 xtxzgl 于 2014-1-28 10:59 编辑 ]

是不是把表的指针跳到最后一条记录上。

先定位要打印的记录，然后用3楼提供的代码打印。