| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 控件的焦点控制问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63858) |
| -- 作者：80帅兜 -- 发布时间：2015/1/30 11:43:00 -- 控件的焦点控制问题 窗口内有一个文本框，我在keydown里面写代码 If e.KeyCode = Keys.Enter Then If e.Sender.Text <> "" Then Dim str As String = e.Sender.Text str = "\'%" & str & "%\'" DataTables(e.Form.Name & "_Table1").LoadFilter = "档案ID like " & str DataTables(e.Form.Name & "_Table1").Load(False) e.Sender.Select() e.Sender.SelectedText End If End If 当输入→ENTER，焦点没有回到文本框，而是跳到下一个控件，哪里写错了呢？
|
| -- 作者：Bin -- 发布时间：2015/1/30 11:47:00 -- If e.KeyCode = Keys.Enter Then If e.Sender.Text <> "" Then Dim str As String = e.Sender.Text str = "\'%" & str & "%\'" DataTables(e.Form.Name & "_Table1").LoadFilter = "档案ID like " & str DataTables(e.Form.Name & "_Table1").Load(False) e.Sender.Select() e.Sender.SelectedText e.cancel=true End If End If
|
| -- 作者：80帅兜 -- 发布时间：2015/1/30 11:50:00 -- OK，谢谢 |