Foxtable(狐表)用户栏目专家坐堂 → [讨论]自定义录入界面(已解决)


  共有8112人关注过本帖树形打印复制链接

主题:[讨论]自定义录入界面(已解决)

帅哥哟,离线,有人找我吗?
anxue
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:486 积分:3668 威望:0 精华:0 注册:2013/3/13 8:49:00
[讨论]自定义录入界面(已解决)  发帖心情 Post By:2013/4/3 16:35:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3301.table

还是在下拉窗口 没有点开之前  直接输入 出现错误

[此贴子已经被作者于2013-4-9 11:06:49编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/4/3 16:39:00 [只看该作者]

没见有错误啊?

 回到顶部
帅哥哟,离线,有人找我吗?
anxue
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:486 积分:3668 威望:0 精华:0 注册:2013/3/13 8:49:00
  发帖心情 Post By:2013/4/3 16:46:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20130403164440.jpg
图片点击可在新窗口打开查看

直接在 教师姓名 输入 出现的


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/4/3 16:51:00 [只看该作者]

为什么我没有任何问题呢- -

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/4/3 16:53:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20130403165142.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
anxue
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:486 积分:3668 威望:0 精华:0 注册:2013/3/13 8:49:00
  发帖心情 Post By:2013/4/3 16:55:00 [只看该作者]

那我这为什么出错呢?  没有打开下拉表格之前输入  ,第一次输入出错  第二次 没事。 每回都这样呢?


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/4/3 17:11:00 [只看该作者]

哦.第一次出错这个是因为窗口1没存在的原因 打开一下就好了.
DropBox1 的KEYDOWN 事件中开头 添加以下代码
Dim dropbox As WinForm.DropDownBox=e.Form.Controls("DropBox1")
dropbox.OpenDropDown()

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/4/3 17:52:00 [只看该作者]

呵呵,这样完美一点:
 
Dim dropbox As WinForm.DropDownBox = e.Form.Controls("DropBox1")
If dropbox.DroppedDown = False Then ‘如果下拉窗口没有打开
   dropbox.OpenDropDown()  '则打开之
End If

 回到顶部