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键后 查找这个数字, 最后返回 这个控件
但测试不行