| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 975 人关注过本帖
标题:[求助]关于连续打印
取消只看楼主 加入收藏
santu2006
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2006-8-6
收藏
 问题点数:0 回复次数:2 
[求助]关于连续打印
我希望实现的是我在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编辑过]

搜索更多相关主题的帖子: 打印 
2006-08-13 08:28
santu2006
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2006-8-6
收藏
得分:0 

不懂哈~
谁来教教我哈~

2006-08-13 11:48
santu2006
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2006-8-6
收藏
得分:0 

谢谢 ~

2006-08-14 20:40
快速回复:[求助]关于连续打印
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.036394 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved