- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [讨论]自定义录入界面(已解决） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=30790)
-- 发布时间：2013/4/3 16:35:00
-- [讨论]自定义录入界面(已解决）
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3301.table |
还是在下拉窗口 没有点开之前 直接输入 出现错误
[此贴子已经被作者于2013-4-9 11:06:49编辑过]
-- 发布时间：2013/4/3 16:39:00
--
没见有错误啊?
-- 发布时间：2013/4/3 16:46:00
--
此主题相关图片如下：qq截图20130403164440.jpg
直接在 教师姓名 输入 出现的
-- 发布时间：2013/4/3 16:51:00
--
为什么我没有任何问题呢- -
-- 发布时间：2013/4/3 16:53:00
--
此主题相关图片如下：qq截图20130403165142.png
-- 发布时间：2013/4/3 16:55:00
--
那我这为什么出错呢？ 没有打开下拉表格之前输入 ，第一次输入出错 第二次 没事。 每回都这样呢？
-- 发布时间：2013/4/3 17:11:00
--
哦.第一次出错这个是因为窗口1没存在的原因 打开一下就好了.
在DropBox1 的KEYDOWN 事件中开头 添加以下代码
Dim dropbox As WinForm.DropDownBox=e.Form.Controls("DropBox1")
dropbox.OpenDropDown()
-- 发布时间：2013/4/3 17:52:00
--
呵呵，这样完美一点：
Dim dropbox As WinForm.DropDownBox = e.Form.Controls("DropBox1")
If dropbox.DroppedDown = False Then ‘如果下拉窗口没有打开
dropbox.OpenDropDown() \'则打开之
If dropbox.DroppedDown = False Then ‘如果下拉窗口没有打开
dropbox.OpenDropDown() \'则打开之
End If