[求助]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"