- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]请问如何实现一键回车查询？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=102697)
-- 发布时间：2017/6/24 1:01:00
-- [求助]请问如何实现一键回车查询？
在ComboBox的 keydown事件套用了有点色老师的代码，实现了按回车键跳转到查询按钮，必须在按回车键才能执行查询操作，请如何实现一键回车就查询呢？ If e.keycode = 13 Then e.Cancel = True e.Form.Controls("查询").Select End If 可以用全局事件代码实现吗？ |
[此贴子已经被作者于2017/6/24 8:02:36编辑过]
-- 发布时间：2017/6/24 9:12:00
--
If e.keycode = 13 Then
e.Cancel = True
e.Form.Controls("查询").PerformClick
End If
-- 发布时间：2017/6/24 13:33:00
--
谢谢蓝老师！
-- 发布时间：2017/6/24 20:09:00
--
请问蓝老师，在全局表事件中这样的代码应该怎么写，
我要对所有的窗口控件有效。
-- 发布时间：2017/6/24 22:52:00
--
Initialize中KeyDownEdit已开
For Each dt As DataTable In DataTables
dt.GlobalHandler.PrepareEdit = True
dt.GlobalHandler.BeforeDeleteDataRow = True
dt.GlobalHandler.KeyDownEdit = True
Next
但还是没反应
请问老师以下代码可以用在全局表事件中吗？
If e.keycode = 13 Then e.Cancel = True e.Form.Controls("查询").PerformClick End If 如果需要在每个CheckBox事件中都设置一下，那实在太麻烦了 |
[此贴子已经被作者于2017/6/24 23:04:07编辑过]
-- 发布时间：2017/6/25 11:30:00
--
在窗口的keydown事件写，就可以了。
-- 发布时间：2017/6/25 13:52:00
--
谢谢老师！我光想着全局表事件中去了
-- 发布时间：2017/8/18 20:14:00
--
老师！我发现如果手动输入查询条件的时候，无法执行回车查询
If e.keycode = 13
Then
e.Cancel = True
e.Form.Controls("查询").PerformClick
End If
请问代码应该如何修改呢？
-- 发布时间：2017/8/18 20:25:00
--
没看懂什么意思，截图说明
试试
老师！我发现如果手动输入查询条件的时候，无法执行回车查询 If e.keycode = 13 Then e.Cancel = True e.Form.Controls("查询").select e.Form.Controls("查询").PerformClick End If 查询按钮代码加个msgbox能不能弹出来 |
-- 发布时间：2017/8/21 9:03:00
--
用了老师的代码，效果杠杠的！