我想用扫描仪提取库存信息通过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控件"请问应如何解决?

无 Text6 控件，就是你的表单上没有这个名字的控件啰