以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口中控件值录入完成后,继续录入下一值处理  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62709)

--  作者:supwork
--  发布时间:2015/1/6 21:13:00
--  窗口中控件值录入完成后,继续录入下一值处理

在窗口中放一 扫描条码 控件

要求条码扫描录入后,判断新旧值

新旧值不一样则执行一段代码

无论新旧值一样与否,焦点控件依然在 扫描条码 控件中,以备接受下一次扫描值.

 

 

Dim tm As WinForm.TextBox = e.Form.Controls("扫描条码")
tm.Select

 

这个如果放在VALUECHANGED中 仅值发生变化时,才定位到,如果值一样就跑别的地方了.

 

求最佳代码



--  作者:有点甜
--  发布时间:2015/1/6 21:20:00
--  

 在keydown事件判断回车。

 

 当出现回车的时候,执行对应代码;

 

 判断新值旧值,就用一个变量存储上次的值 http://www.foxtable.com/help/topics/1061.htm

 


--  作者:supwork
--  发布时间:2015/1/6 21:41:00
--  

先帮解决 无论怎么样操作,焦点一值设定在 扫描条码 控件中

 

Dim tm As WinForm.TextBox = e.Form.Controls("扫描条码")
tm.Select

 

 

我把这个代码放好几个地方了.但仅首次录入新值时,焦点还在 扫描条码 控件中.再次录入相同值或不同值是焦点都跑了

 


--  作者:有点甜
--  发布时间:2015/1/6 21:46:00
--  

  放在keydown事件里啊,监测回车键啊

 

 http://www.foxtable.com/help/topics/0741.htm

 

 或者是在控件的Leave事件写入代码 e.Cancel = True 啊