以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  扫描条形码问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61133)
--  作者：hqy168168
--  发布时间：2014/12/7 18:53:00
--  扫描条形码问题
正在测试扫描枪：
目的：设计一文本框，将条形码扫描到文本框textbox1后，条形码字符串自动在表table1中增加一行，并将条形码自动填入表table1的‘条形码’列中。

我在文本框textbox1的ValueChanged事件中的编码：
Dim s As String = e.Form.Controls("TextBox1").Value
If s IsNot Nothing Then
    Dim dr As DataRow = DataTables("表A").AddNew
    dr("第一列") = s
End If

问题：这个在关闭textbox1所在的窗口才录入表中。
1.如何编写代码呢？
2.代码应该放在什么事件中？

刚学习中，请赐教，非常感谢
--  作者：有点甜
--  发布时间：2014/12/7 19:09:00
--  

 在KeyDown事件，写入代码

 

If e.KeyCode = Keys.Enter Then
    Dim dr As DataRow = DataTables("表A").AddNew
    dr("第一列") = e.Sender.Text
End If

 
--  作者：hqy168168
--  发布时间：2014/12/7 19:13:00
--  
解决了，非常感谢“有点甜”老师周末辛苦的工作，为用户解疑答惑。