我是个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"

别人写的,我只是改改!

关键是这个地方要改改:
IF Pr_My_tr_chpdd_fm_b.keh_bh='H239'
    MESSAGEBOX("标签格式不正确!请重新选择“001客户或H239客户标签”！！！","")
    SELECT Pr_My_tr_chpdd_fm_m1
    ZAP
ENDIF

我们的产品有个内部物料号,此料号包含有客户编号,客户编号分别有：001、H239及H开头+数字的，如：H123 、H220 、H221等

噢！
是的，是这样改的，太感谢了！
以后还要你的帮助！再次感谢了！