标题:请教各位朋友,vfp文本框输入问题!
只看楼主
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:190
帖 子:3125
专家分:8340
注 册:2015-3-25
得分:0 
以下是引用sdta在2016-8-17 16:40:21的发言:

为什么不用TEXT的LOSTFOCUS事件

提醒的对,放到 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
2016-08-17 17:07
pjtyzyq
Rank: 4
等 级:业余侠客
威 望:6
帖 子:230
专家分:240
注 册:2016-2-14
得分:0 
谢谢各位版主!本论坛是不但是益友更是良师。
2016-08-17 19:35



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-467894-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.402716 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved