以下是引用s3178在2010-5-13 11:18:47的发言:
请 各位老师看看我这段代码那里错了
为什么总是输出“输入编码错误”
public i,j
i=thisform.edit1.value
j=val(thisform.edit2.value)
if j==kc.id
if kc.sl<>0
kc.sl=kc.sl-1
messagebox("数据删除成功!")
else
messagebox("货物已售完,请及时进货!")
endif
else
messagebox("输入编码错误!")
endif
请 各位老师看看我这段代码那里错了
为什么总是输出“输入编码错误”
public i,j
i=thisform.edit1.value
j=val(thisform.edit2.value)
if j==kc.id
if kc.sl<>0
kc.sl=kc.sl-1
messagebox("数据删除成功!")
else
messagebox("货物已售完,请及时进货!")
endif
else
messagebox("输入编码错误!")
endif
你录入的编码 没有和当前记录 相对应, 当然出现"输入编码错误!"了~
改为:
public i,j
i=thisform.edit1.value
j=val(thisform.edit2.value)
sele kc
loca for j=kc.id
if !eof()
if kc.sl<>0
kc.sl=kc.sl-1
messagebox("数据删除成功!")
else
messagebox("货物已售完,请及时进货!")
endif
else
messagebox("输入编码错误!")
endif