老师，我要实现这样的功能，我窗口中有一个文本框，用来输入数量。
输完数字后按enter键，表中能够自动的增加一条记录，增加完后窗口的焦点回到文本框上
可以继续用来直接输入数字。
我下面的代码第一次enter键之后，焦点回不到文本框上，有什么问题吗？
If e.KeyCode = Keys.Enter Then
Dim gh As WinForm.TextBox = e.Form.Controls("缸号")
Dim cur As Row = Tables("订单出入库").current
If cur IsNot Nothing Then
If cur.IsNull("订单明细ID") Then
MessageBox.show("订单出入库的订单明细ID不能为空,请检查!")
Else
Select Case cur("性质")
Case "入库"
Dim dr As Row =Tables("订单出入库.布匹信息").addnew
dr("数量")=e.sender.Text
dr("布匹性质")="在库"
dr("缸号")=gh.value
Case Else
MessageBox.show("订单出入库的性质不能为空,请检查!")
End Select
End If
End If
'Dim tm As WinForm.TextBox = e.Form.Controls("数量")
'e.sender.value=Nothing
'e.sender.Select
e.Form.Controls("数量").Select()
End If
加好友 
发短信
Post By：2016/2/26 10:14:00 [只看该作者]
