求TEXTBOX控件问题
我想用扫描仪提取库存信息通过TEXTBOX控件判断是否为库存然后存盘,继续扫描下一条信息.我在 "TEXT1.DESTROY" 中输入如下代码
IF ALLTRIM(THISFORM.TEXT6.VALUE)==""
RETURN
ENDIF
IF DBKC_MX.库存<>.T.
=MESSAGEBOX("表号：不是现有库存",0+16)
RETURN
ENDIF
SELECT DBCK_MX
APPEND BLANK
REPLACE 出库日期 WITH DJRQ,;
入库日期 WITH DBKC_MX.入库日期,;
表号 WITH DBKC_MX.表号,;
制造商 WITH DBKC_MX.制造商,;
型号 WITH DBKC_MX.型号,;
SELECT DBCK_SL
LOCAT FOR ALLTRIM(编码)==dbck_mx.编码
IF FOUND()
REPLACE 数量 WITH 数量+1
ELSE
APPEND BLANK
REPLACE 制造商 WITH ALLTRIM(THISFORM.Text5.VALUE),;
型号 WITH ALLTRIM(THISFORM.Text6.VALUE),;
容量 WITH ALLTRIM(THISFORM.Text7.VALUE),;
数量 WITH 1,;
编码 WITH DBKC_MX.编码
ENDIF
SELECT DBCK_MX
COUNT TO CK FOR .NOT.DELETE()
THISFORM.TEXT13.VALUE=CK
DELETE FOR ALLTRIM(表号)==""
THISFORM.REFRESH
可是在关闭表单时提示:"无TEXT6控件"请问应如何解决?
页:
[1]