求助:打印工资条是-如何跳过表中某些记录打印其他记录
请各位大侠来点思路一个表中有若干个员工的工资记录,一个员工一条记录
我想在用报表打印的时候 跳过某些满足条件的记录不打印 需要如何设置呢
以下是我的打印程序(请看黑字部分,)
parameters bh
clear
set talk off
set safe off
PUBLIC n_name
n_mame=""
wbh=0
QYH=1
ZYH=99
SELE 1
USE XTZK &&如果修改XTZK.DBF中 BH 的类型,程序将出错.
do while .t.
clear
@13,20 say '单位编号:' GET WBH PICT '99'
READ
IF WBH=99
EXIT
ENDIF
SELE 1
LOCATE FOR BH=WBH
IF EOF()
@18,20 SAY '该单位不存在!'
?CHR(7)+CHR(7)
LOOP
ENDIF
IF WBH<10
I=STR(WBH,1)
ELSE
I=STR(WBH,2)
ENDIF
WNAME=NAME
@19,20 SAY '正在打印'+WNAME+'工资表'
n_name=my_func(wbh)
sele 2
?n_mame
USE GZZ&I
report form wj2.frx preview &&(wj2.frx是我设计的报表,不知道要达到我的要求 是应该在打印程序里设置,还是应该在报表里设置,要如何设置啊)
enddo
name=LTRIM(TRIM(WNAME))
return