| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 408 人关注过本帖
标题:[求助]vfp标签代码问题
只看楼主 加入收藏
罗建伟
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2014-3-1
结帖率:0
收藏
已结贴  问题点数:20 回复次数:6 
[求助]vfp标签代码问题
我是个vfp初学者,现有个代码要改下,请教高手我该如何更改,感谢,感谢了!
修改要求:在打印此标签时,只允许打印第一个字段名为"H"的字段,当遇到字段为"001"或者"H239" 时不允许打印,
标签报表原代码如下:

LOCAL lc_id_chpdd_m , lc_i, lc_mod, sql_tmp1



TEXT TO sql_tmp1 NOSHOW
    select top 0  c.pingm, c.pingm_bh, c.pcs_lpsh, c.banh, c.dw, a.shul_jh, a.shul_bp, c.liaoh,  b.chpdd_bh, f.keh_po, e.bum1_yj, d.keh_bh, chpdd_mc5, a.id_chpdd_m, f.dind_bh
        from btr_chpdd_m a
            left outer join btr_chpdd_b b on a.id_chpdd_b = b.id_chpdd_b
            left outer join bmt_pingm c on a.id_pingm = c.id_pingm
            left outer join btr_dind_m e on a.id_dind_m = e.id_dind_m
            left outer join btr_dind_b f on e.id_dind_b = f.id_dind_b
            left outer join bmt_keh_g d on b.id_keh = d.id_keh and b.id_group = d.id_group
ENDTEXT

IF USED("Pr_my_tr_chpdd_fm_m1")
    SELECT Pr_my_tr_chpdd_fm_m1
    USE
ENDIF

IF (SQLEXEC(myconnect,sql_tmp1,'Pr_my_tr_chpdd_fm_m1') <= 0)
    WAIT WINDOW "通知单表明细取数不成功!" NOWAIT
    RETURN
ELSE
    SELECT Pr_my_tr_chpdd_fm_m1
ENDIF

SELECT Pr_My_tr_chpdd_fm_m
    GO TOP
SCAN
    lc_id_chpdd_m = ALLTRIM(id_chpdd_m)
    lc_dw = ALLTRIM(dw)
    lc_pingm = ALLTRIM(pingm)
    lc_keh_po = ALLTRIM(keh_po)
    lc_bum1_yj = ALLTRIM(bum1_yj)
    lc_liaoh = ALLTRIM(liaoh)
    lc_pingm_bh = ALLTRIM(pingm_bh)
    lc_dind_bh = ALLTRIM(dind_bh)
    lc_chpdd_mc5 = VAL(ALLTRIM(chpdd_mc5))
    lc_i = CEILING((shul_jh+shul_bp)/IIF(VAL(ALLTRIM(chpdd_mc5))>0,VAL(ALLTRIM(chpdd_mc5)),(shul_jh+shul_bp)))
    lc_mod = mod((shul_jh+shul_bp),IIF(VAL(ALLTRIM(chpdd_mc5))>0,VAL(ALLTRIM(chpdd_mc5)),(shul_jh+shul_bp)))
    FOR i=1 TO  lc_i
        SELECT Pr_My_tr_chpdd_fm_m1
            APPEND BLANK
            REPLACE NEXT 1 dw WITH lc_dw,;
                        id_chpdd_m WITH lc_id_chpdd_m,;
                        pingm WITH lc_pingm,;
                        dind_bh WITH lc_dind_bh,;
                        bum1_yj WITH lc_bum1_yj,;
                        keh_po WITH lc_keh_po,;
                        liaoh WITH lc_liaoh,;
                        pingm_bh WITH lc_pingm_bh,;        
                        shul_jh WITH IIF(i=lc_i AND lc_mod>0,lc_mod,lc_chpdd_mc5)
    ENDFOR
    SELECT Pr_My_tr_chpdd_fm_m
ENDSCAN  

IF Pr_My_tr_chpdd_fm_b.keh_bh='H239'
    MESSAGEBOX("标签格式不正确!请重新选择“001客户或H239客户标签”!!!","")
    SELECT Pr_My_tr_chpdd_fm_m1
    ZAP
ENDIF

SELECT Pr_My_tr_chpdd_fm_m1
this.InitialSelectedAlias = "Pr_My_tr_chpdd_fm_m1"
搜索更多相关主题的帖子: 标签 如何 
2014-03-13 14:12
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:20 
不象初学者写的
2014-03-13 14:13
罗建伟
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2014-3-1
收藏
得分:0 
别人写的,我只是改改!
2014-03-13 14:17
罗建伟
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2014-3-1
收藏
得分:0 
关键是这个地方要改改:
IF Pr_My_tr_chpdd_fm_b.keh_bh='H239'
    MESSAGEBOX("标签格式不正确!请重新选择“001客户或H239客户标签”!!!","")
    SELECT Pr_My_tr_chpdd_fm_m1
    ZAP
ENDIF

2014-03-13 14:18
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
IF Pr_My_tr_chpdd_fm_b.keh_bh='H239'
改为:IF Pr_My_tr_chpdd_fm_b.keh_bh='H239' or Pr_My_tr_chpdd_fm_b.keh_bh='001'

是这样吗?

2014-03-13 14:22
罗建伟
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2014-3-1
收藏
得分:0 
我们的产品有个内部物料号,此料号包含有客户编号,客户编号分别有:001、H239及H开头+数字的,如:H123 、H220 、H221等
2014-03-13 14:23
罗建伟
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2014-3-1
收藏
得分:0 
噢!
是的,是这样改的,太感谢了!
以后还要你的帮助!再次感谢了!
2014-03-13 14:33
快速回复:[求助]vfp标签代码问题
数据加载中...
 
   



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

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