以文本方式查看主题

-  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