这个附件的代码是
public xt,czy,jz,bzlx,yq,cplh,bzfs,dqxh,bzlx1,SOPcode , SWR,lab
lab=thisform.label1.caption
jz=thisform.text4.value
cplh=thisform.text6.value
qdxh=thisform.text8.value
thisform.text8.value=""
thisform.text5.value="正常工单"
xt=allt(thisform.text3.value)
thisform.text3.readonly=.t.
bzlx=
SWR=
SELECT 员工新表1
LOCAL srsj
THISFORM.TEXT1.SETFOCUS
czy=""
locate for 工号==Allt(thisform.text1.value)
if found()
thisform.labeL1.Caption="员工号输入正确,请输入箱号"
thisform.text2.value=姓名
thisform.label1.backcolor=rgb(0,255,64)
return
Else
czy=""
thisform.labeL1.Caption="该员工没有权限"
thisform.labeL1.BackColor=RGB(255,0,0)
return
endif
select 箱号库
dqxh=""
locate FOR ALLT(箱号)=allt(s)
if found()
dqxh= 箱号
thisform.label1.caption="箱号正确,请输入料号"
thisform.label1.backcolor=rgb(0,255,64)
thisform.text8.value=ALLT(箱号)
thisform.text8.readonly=.t.
THISFORM.TEXT10.VALUE=240
THISFORM.TEXT10.readonly=.t.
ELSE
dqxh=""
thisform.label1.caption="箱号错误"
thisform.text8.value=""
thisform.labeL1.BackColor=RGB(255,0,0)
ENDIF
当输入箱号的时候 总是在员工表 else 那里转悠 为什么? 附件二