[求助]关于连续打印
我希望实现的是我在text2中输入编号1,在text3中输入编号2,实现编号1-编号2的打印__________________________________________
close tables all
sele 1
use da
if thisform.check1.value=1
m_text=alltrim(thisform.text1.value)
locate for bh==m_text
if found()=.T.
b_bh=m_text
b_xm=da.xm
b_xh=da.xh
b_xb=da.xb
b_csny=dtoc(da.csny)
b_zzmm=da.zzmm
b_bj=da.bj
b_zy=da.zy
b_fdy=da.fdy
b_bm=da.bm
b_zw=da.zw
b_ah=da.ah
b_tc=da.tc
b_qt=da.qt
b_ssh=da.ssh
b_sst=da.sst
b_mpn=da.mpn
b_xlt=da.xlt
b_mail=da.mail
b_q=da.qq
b_jg=da.jg
sele 1
save screen to tempwin
if thisform.check3.value=1
report form djb1.frx to print
else
report form djb2.frx to print
endif
restore screen from tempwin
else
messagebox("无此人员!")
endif
else
m_text2=thisform.text2.value
m_text3=thisform.text3.value
locate for bh>=alltrim(m_text2) and bh<=alltrim(m_text3)
save screen to temp1
Do while found()
b_bh=da.bh
b_xm=da.xm
b_xh=da.xh
b_xb=da.xb
b_csny=dtoc(da.csny)
b_zzmm=da.zzmm
b_bj=da.bj
b_zy=da.zy
b_fdy=da.fdy
b_bm=da.bm
b_zw=da.zw
b_ah=da.ah
b_tc=da.tc
b_qt=da.qt
b_ssh=da.ssh
b_sst=da.sst
b_mpn=da.mpn
b_xlt=da.xlt
b_mail=da.mail
b_q=da.qq
b_jg=da.jg
sele 1
save screen to tempwin
if thisform.check3.value=1
report form djb1.frx to print
else
report form djb2.frx to print
endif
sele 1
continue
enddo
restore screen from temp1
endif
use
______________________________
不知道哪出了错,系统没报错,就是无法实现
[此贴子已经被作者于2006-8-13 8:51:56编辑过]