Foxtable(狐表)用户栏目专家坐堂 → [求助]焦点单元格


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

主题:[求助]焦点单元格

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


加好友 发短信
等级:二尾狐 帖子:550 积分:5021 威望:0 精华:0 注册:2017/4/20 11:08:00
[求助]焦点单元格  发帖心情 Post By:2019/5/26 11:09:00 [只看该作者]

老师们好,请教下:

1.在表和窗口表情况下,每增加一行,不管原来编辑的焦点单元格在任何位置,如何把编辑单元格焦点自动定在当前表的第二列新增行位置,并可以直接录入数据(不用鼠标再单独定位到第二列的新增行单元格)
2.在表和窗口表情况下,每增加一行,就对该表上一行第二列进行重置列(只对该表新增行的上一行重置第二列)


谢谢!
[此贴子已经被作者于2019/5/26 11:55:12编辑过]

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


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

1、

 

Dim nr As Row = Tables("表A").AddNew
nr.Table.Select(nr.Index, nr.Table.Cols("第二列").index)

 

2、在新增行之前,重置当前行(或者某一行)

 

DataTables("表A").DataCols("第二列").RaiseDataColChanged(Tables("表A").Current.DataRow)

 


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


加好友 发短信
等级:二尾狐 帖子:550 积分:5021 威望:0 精华:0 注册:2017/4/20 11:08:00
  发帖心情 Post By:2019/5/27 11:15:00 [只看该作者]

谢谢甜老师,重置列可以达到效果。
焦点单元格功能代码放在增加行之后,系统直接闪退了,请老师再帮看看,怎么实现
谢谢!

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


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

以下是引用工匠在2019/5/27 11:15:00的发言:
谢谢甜老师,重置列可以达到效果。
焦点单元格功能代码放在增加行之后,系统直接闪退了,请老师再帮看看,怎么实现
谢谢!

 

做一个实例发上来测试。


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


加好友 发短信
等级:二尾狐 帖子:550 积分:5021 威望:0 精华:0 注册:2017/4/20 11:08:00
  发帖心情 Post By:2019/5/27 12:10:00 [只看该作者]

好的,谢谢老师
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:焦点单元格.foxdb



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


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

 

Dim nr As Row = Tables("表A").current
nr.Table.Select(nr.Index, nr.Table.Cols("第二列").index)
'nr.Table.TopVisibleRow = nr.Index

 

 


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


加好友 发短信
等级:二尾狐 帖子:550 积分:5021 威望:0 精华:0 注册:2017/4/20 11:08:00
  发帖心情 Post By:2019/5/27 13:03:00 [只看该作者]

谢谢老师,表和窗口表关联表都可以了,谢谢!

 回到顶部