提醒的对，放到 LostFocus 去
IF !EMPTY(this.Value)
   thisform.text3.Value = SUBSTR(ALLTRIM(this.Value),1,2)
   REPLACE 条码 WITH ALLTRIM(this.Value)
   REPLACE 单位 WITH SUBSTR(ALLTRIM(this.Value),1,2)
*  MESSAGEBOX("任意键继续录入条码！",64,"录入条码")
   IF !EOF()
   SKIP
      thisform.text1.Value = 编号
      thisform.text2.Value = ''
      thisform.text3.Value = ''
   ENDIF
ENDIF

谢谢各位版主！本论坛是不但是益友更是良师。