| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2393 人关注过本帖
标题:VFP 实现批量查询,并打印出来,求助
只看楼主 加入收藏
yeanoy
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2015-7-13
结帖率:33.33%
收藏
已结贴  问题点数:20 回复次数:8 
VFP 实现批量查询,并打印出来,求助
IF DODEFAULT()=.F.
    RETURN .F.
 ENDIF
 cydno1 = ""
 cydno1 = runform2('tm_add_print_no', 1, '开始运单号', 'tm_yd', 'yd_no')
 cydno1 = IIF(VARTYPE(cydno1)="L", '', cydno1)
 IF EMPTY(cydno1)
    RETURN
 ENDIF
 cydno2 = ""
 cydno2 = runform2('tm_add_print_no', 1, '结束运单号', 'tm_yd', 'yd_no')
 cydno2 = IIF(VARTYPE(cydno2)="L", '', cydno2)
 IF EMPTY(cydno2)
    RETURN
 ENDIF
 
 FOR cydno=cydno1 TO cydno2
 cydno=cydno+1
 
  SELECT * FROM bas_dept INTO CURSOR tmp_dept READWRITE
 thisform.at_find_zb(, cydno)
 thisform.at_find_mx_other_cost(, cydno)
 thisform.chkisupdate.caption = "更新发货人和收货人信息"
 thisform.chkisupdate.value = 0
 thisform.is_edit_nosave = .F.
 thisform.lablrecaddr.caption = ALLTRIM(cur_tm_yd.addr_dis)+ALLTRIM(cur_tm_yd.addr_town)
*!*     thisform.txtrecieveaddrhn.left = thisform.lablrecaddr.left+thisform.lablrecaddr.width+10
*!*     IF thisform.txtrecieveaddrhn.width+thisform.txtrecieveaddrhn.left>
*!*        thisform.txtrecieveaddrhn.width = thisform.txtrecieveaddrhn.width-thisform.lablrecaddr.width
*!*     ENDIF
 thisform.lablrecaddr.refresh()
 thisform.at_control
 thisform.txtlabelnum.value = cur_tm_yd.qty
 thisform.txtlabelnum.refresh
 IF USED("cur_cube")
    USE IN cur_cube
 ENDIF
 thisform.refresh
 SELECT * FROM cur_tm_yd INTO CURSOR cur_tm_yd_bak READWRITE
 thisform.is_modi_mx = .F.
 thisform.Print
 
 ENDFOR
搜索更多相关主题的帖子: IF thisform left VFP refresh 
2019-12-29 22:04
yeanoy
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2015-7-13
收藏
得分:0 
请大神帮忙,看是否能实现,是否有语法错误,新手求助!
2019-12-29 22:10
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:5 
上传相关文件

坚守VFP最后的阵地
2019-12-29 22:24
gs2536785678
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:45
帖 子:610
专家分:1784
注 册:2017-7-16
收藏
得分:2 
深刻了。。。
2019-12-30 09:08
湖中花
Rank: 2
等 级:论坛游民
帖 子:14
专家分:40
注 册:2019-12-16
收藏
得分:8 
for语句不要这一句
cydno=cydno+1
2019-12-30 16:29
yeanoy
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2015-7-13
收藏
得分:0 
回复 5楼 湖中花
step 是默认的吗?
2019-12-30 16:58
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2214
专家分:3882
注 册:2007-4-27
收藏
得分:2 
以下是引用yeanoy在2019-12-30 16:58:54的发言:

step 是默认的吗?


是的

只求每天有一丁点儿的进步就可以了
2019-12-30 18:07
yeanoy
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2015-7-13
收藏
得分:0 
回复 3楼 sdta
frm.zip (104.88 KB)

帮我看看,谢谢
2019-12-30 21:27
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:3 
回复 8楼 yeanoy
文件不完整,缺少类文件

坚守VFP最后的阵地
2019-12-30 22:05
快速回复:VFP 实现批量查询,并打印出来,求助
数据加载中...
 
   



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

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