Foxtable(狐表)用户栏目专家坐堂 → 窗口录入问题。


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

主题:窗口录入问题。

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


加好友 发短信
等级:幼狐 帖子:123 积分:1140 威望:0 精华:0 注册:2013/9/22 15:59:00
窗口录入问题。  发帖心情 Post By:2014/6/26 10:09:00 [只看该作者]

窗口中有若干录入控件,不是每个都需要录入,想在录入中途中断,比如只录入第一、第二个数据后,结束录入,直接执行“新增”控件,想加一个快捷键实现,咋整?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/26 10:31:00 [只看该作者]

 可以看一下这里,全局快捷键地址 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=52509&replyID=&skin=1

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/26 10:32:00 [只看该作者]

 或者编写表的事件keydown,写入触发的代码

 

http://www.foxtable.com/help/topics/0741.htm

 


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


加好友 发短信
等级:幼狐 帖子:123 积分:1140 威望:0 精华:0 注册:2013/9/22 15:59:00
  发帖心情 Post By:2014/6/26 14:52:00 [只看该作者]

麻烦您写一下代码好吗?谢了!

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/26 14:57:00 [只看该作者]

以下是引用ccbbdlzj在2014-6-26 14:52:00的发言:
麻烦您写一下代码好吗?谢了!

 

呃,请先参考链接学习一下,或者请上传例子。


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


加好友 发短信
等级:幼狐 帖子:123 积分:1140 威望:0 精华:0 注册:2013/9/22 15:59:00
  发帖心情 Post By:2014/6/26 15:03:00 [只看该作者]

这个例子,想在录入中途,转向“新增”按钮。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/26 15:09:00 [只看该作者]

以下是引用ccbbdlzj在2014-6-26 15:03:00的发言:
这个例子,想在录入中途,转向“新增”按钮。

 

可以直接在代码那里实现新增按钮的功能。

 

如果是转向新增按钮,这样写 Forms("窗口1").Controls("Button1").Select


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


加好友 发短信
等级:幼狐 帖子:123 积分:1140 威望:0 精华:0 注册:2013/9/22 15:59:00
  发帖心情 Post By:2014/6/26 15:11:00 [只看该作者]

这个例子.

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:窗口录入.foxdb


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/26 15:19:00 [只看该作者]

 

 代码

 

If e.Control = True And e.Alt = True AndAlso e.KeyCode = Keys.Q Then
    e.Form.Controls("新增").Select
End If

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:窗口录入.foxdb


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


加好友 发短信
等级:幼狐 帖子:123 积分:1140 威望:0 精华:0 注册:2013/9/22 15:59:00
  发帖心情 Post By:2014/6/26 15:24:00 [只看该作者]

成了!非常感谢!

 


 回到顶部