Foxtable(狐表)用户栏目专家坐堂 → 光标焦点


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

主题:光标焦点

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


加好友 发短信
等级:小狐 帖子:328 积分:1988 威望:0 精华:0 注册:2014/4/29 23:43:00
光标焦点  发帖心情 Post By:2014/6/24 9:17:00 [只看该作者]

Select

选择该控件。

示例

窗口中有一个按钮,希望单击该按钮能够增加一行,然后将输入焦点移到一个名为“txtName”的文本框中。
为此,可将该按钮的Click事件代码设为:

Tables("订单").AddNew()
e.Form.Controls(
"txtName").Select()



刚看到别人地的贴子老师的回复,研究了一上不是很懂,想问下老师:

在主窗口里点击一个按钮打开一个模式窗口,这个模式窗口里有一个 RecordGrid1(记录窗口) ,能不能我在打开这个模式窗口后光标自动移到这个 RecordGrid1(记录窗口) 里方便输入(这个模式窗口里还有其它记录窗口)


forms("调查表").show()

e.Form.Controls("RecordGrid1").Select() 


 如上,我这样写代码,系统提示错误,不知道应该怎么改了,求助!!!


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


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

提示什么错误,没道理有错误.  难道你这控件是在 调查表窗口里的? 那你代码应该写在 窗口的AlterLoad事件

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


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

 如果是模式窗口,代码要分开写

 

forms("调查表").show()

 

下面这句代码写在 调查表 的afterLoad事件

 

e.Form.Controls("RecordGrid1").Select()


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


加好友 发短信
等级:小狐 帖子:328 积分:1988 威望:0 精华:0 注册:2014/4/29 23:43:00
  发帖心情 Post By:2014/6/24 9:36:00 [只看该作者]

谢谢老师们,我把代码写到模式窗口里就可以了,是代码位置不对!
在次感谢老师们的指点!

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


加好友 发短信
等级:小狐 帖子:328 积分:1988 威望:0 精华:0 注册:2014/4/29 23:43:00
  发帖心情 Post By:2014/6/24 9:51:00 [只看该作者]

请问老师?按照这个代码我的光标已经到了记录窗口了,我的记录窗口里有二十个单元格,这时我须要在次双击鼠标进入单元格内编辑,能不能通过改写代码,我在找开这个模式窗口后光标移到这个记录窗口并且是可编辑状态(不用鼠标了)


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


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


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

e.Form.Controls("RecordGrid1").Select
e.Form.Controls("RecordGrid1").basecontrol.StartEditing

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


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

代码

 

e.Form.Controls("RecordGrid1").basecontrol.Select(1, 1)
e.Form.Controls("RecordGrid1").basecontrol.StartEditing


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


加好友 发短信
等级:小狐 帖子:328 积分:1988 威望:0 精华:0 注册:2014/4/29 23:43:00
  发帖心情 Post By:2014/6/24 10:05:00 [只看该作者]

谢谢

 回到顶部