将字段值添加到报表页码前
DO caseCASE thisform.optiongroup1.Value=1
REPORT FORM main NOEJECT NOCONSOLE PREV
CASE thisform.optiongroup1.Value=2
*!* SET FILTER TO bm=LEFT(ALLTRIM(),2)
*!* REPORT FORM main NOEJECT NOCONSOLE PREV
SELECT * FROM dy where bm=LEFT(ALLTRIM(),2) INTO CURSOR lsb
bj=ALLTRIM()
SELECT lsb
REPORT FORM fb NOEJECT NOCONSOLE PREV
SET FILTER TO
CASE thisform.optiongroup1.Value=3
LOCATE for ae=ALLTRIM(thisform.text2.Value)
IF !EOF()
SET FILTER TO ae=ALLTRIM(thisform.text2.Value)
REPORT FORM main NOEJECT NOCONSOLE PREV
SET FILTER TO
ELSE
MESSAGEBOX('未找到你填写的身份证号相对应的记录!',16,'错误')
endif
endcase
以上代码想实现的功能是在打印报表时将班级添加到报表下的页码边:附件中的图片点击 校对打印
但是不能将班级如01加入到页前面