Foxtable(狐表)用户栏目专家坐堂 → [求助]如何将输入焦点移到表控件上?


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

主题:[求助]如何将输入焦点移到表控件上?

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


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
[求助]如何将输入焦点移到表控件上?  发帖心情 Post By:2013/11/5 9:02:00 [只看该作者]

帮助中说 语句 Tables(bm).Focus 将输入焦点移到Table中。

并介绍说如果成功地将输入焦点移到Table中,则返回True,否则返回False。

找了半天没找到如何设置这个焦点。Tables(bm).Focus =true 程序不认啊?谢谢!


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


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

你理解错了
他是返回

Dim b As Boolean=Tables(bm).Focus

或者 messagebox.show(Tables(bm).Focus)

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


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2013/11/5 9:09:00 [只看该作者]

我明白这条语句。我的问题是 如果成功地将输入焦点移到Table控件上。人工点一下就可以了,我是想找如何用程序做。

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


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


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


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2013/11/5 9:18:00 [只看该作者]

将输入焦点移到Table中。
如果成功地将输入焦点移到Table中,则返回True,否则返回False。

例如:....


如果只是判断Table是否有焦点,可以用Focused属性。



我的问题就是第一句话“将输入焦点移到Table中”!我如何移到Table中?用手动方式?我想找的是有没这样的指令呢?谢谢


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


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2013/11/5 9:21:00 [只看该作者]

示例说 :“ If CurrentTable.Focus Then '将输入焦点移到当前表”, 我可否理解 CurrentTable.Focus这条语句就是移到Table上了呢?但是我实测不是这样!

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


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

经过测试,没有问题可以正常运作.有效果的啊.

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


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2013/12/15 19:54:00 [只看该作者]

老问题重谈,见上面问题。
我做了一个例子。用了帮助教的所有办法就是无法把焦点放到 tables(bm2).select(0,0)上。打开程序后,看到好象是选中tables(bm2).selec(0,0),但是实际是没有选中,在使用前必须要用鼠标点击一下这个单元才能把数据录进去,或者才能用扫描枪扫进代码!
要求就是打开窗口后,不需要再用鼠标点就直接达到鼠标点击的效果!
这是表控件放到了好几个容器控件中,如TabControl、SplitContainer等控件中!是不是因为多层放入的原因啊?
我做了一个例子,请老师看看有没办法解决!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


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

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

要达到a2图的效果。注意a1图和a2图的区别就是一个第一行第一列单元未选中和选中
谢谢老师
[此贴子已经被作者于2013-12-15 19:55:21编辑过]

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


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

 最后的代码,加入

e.Form.Controls("Table2").Select
Tables(bm2).Select(0,0)
Tables(bm2).StartEditing

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


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2013/12/16 5:15:00 [只看该作者]

太感谢了 困扰我好长时间终于解决了 再次感谢!

 回到顶部