以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  文本框控件自定选择的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81372)
--  作者：sjzsdu
--  发布时间：2016/2/26 10:14:00
--  文本框控件自定选择的问题
老师，我要实现这样的功能，我窗口中有一个文本框，用来输入数量。
输完数字后按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
--  作者：大红袍
--  发布时间：2016/2/26 10:24:00
--  

e.Cancel = True

e.Sender.Select()