- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- dropbox中录入焦点的问题. (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49750)
-- 发布时间：2014/4/23 16:54:00
-- dropbox中录入焦点的问题.
dropbox1的KeyDown事件代码
e.Form.controls("DropBox2").Select()这句代码好像不起作用.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目h2.zip |
-- 发布时间：2014/4/23 17:01:00
--
其实我感觉,这个也没什么影响吧.按第一次确认输入.第二次切换焦点.
-- 发布时间：2014/4/23 17:02:00
--
如果要做......
(^_^ 发错了)
[此贴子已经被作者于2014-4-23 17:03:09编辑过]
-- 发布时间：2014/4/23 17:04:00
--
以下是引用有点甜在2014-4-23 17:02:00的发言：
这样不行吧
如果要做，就在DropDownClose 写代码
If e.Selected Then \'如果选择了值
Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("客户ID")
Forms("录入窗口").Controls("DropBox2").Select
End If
End If
-- 发布时间：2014/4/23 17:17:00
--
写错了...这样写
If e.Selected Then \'如果选择了值
Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("客户ID")
Sendkeys.Send("~")
End If
End If
-- 发布时间：2014/4/23 17:22:00
--
学习了.
-- 发布时间：2014/4/23 17:46:00
--
多谢有点甜老师!
问题已解决.
这样就不需要看着窗口光标录入数据,不管什么录入控件,只要按enter一次,直接录入下一控件的数据.
既轻松,速度也快好多!
-- 发布时间：2014/4/23 18:02:00
--
这个符号，没这样用过，学无止境。