以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何实现的连续扫码?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102734)

--  作者:谢天钰
--  发布时间:2017/6/24 20:44:00
--  [求助]如何实现的连续扫码?
我想在窗口中的文本框中扫码,自动添加到表的当前行,然后清空文本框文本,光标还留在文本框?请问如何写事件代码?
--  作者:有点色
--  发布时间:2017/6/25 12:10:00
--  

窗口keydown事件

 

If e.Keycode = 13 Then
    Dim nr As Row = Tables("表A").AddNew
    nr("第一列") = e.Sender.Text
    e.Sender.text = ""
    e.Sender.Select
    e.cancel = True
End If