以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  textbox1 控件按下enter 后返回 这个控件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84025)
--  作者：ljh29206
--  发布时间：2016/4/21 17:27:00
--  textbox1 控件按下enter 后返回 这个控件
Dim names As WinForm.DropDownBox = e.Form.Controls("DropBox1")
Dim number As WinForm.TextBox = e.Form.Controls("number")
If  e.KeyCode = Keys.enter Then
Dim dr As DataRow = DataTables("tbfcpclist").Find("jobnumber = \'" & number.text & "\'")
If dr IsNot Nothing Then
names.text = names.text & dr("username") & ","
number.text = ""
Else
MessageBox.Show("没有该号")
End If
End If

number.Select
事件放在keydown 里面
这样写对吗， 

效果  在text 控件 按下 键盘的 enter键后 查找这个数字，    最后返回 这个控件

但测试不行
--  作者：大红袍
--  发布时间：2016/4/21 17:36:00
--  

If e.KeyCode = Keys.enter Then

    e.Cancel = True