Foxtable(狐表)用户栏目专家坐堂 → 老师,表是锁定的,在新增行不锁定,保存后马上锁定的代码怎么写呢?


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

主题:老师,表是锁定的,在新增行不锁定,保存后马上锁定的代码怎么写呢?

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


加好友 发短信
等级:童狐 帖子:210 积分:1790 威望:0 精华:0 注册:2017/6/28 16:46:00
老师,表是锁定的,在新增行不锁定,保存后马上锁定的代码怎么写呢?  发帖心情 Post By:2020/5/3 10:50:00 [只看该作者]


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


加好友 发短信
等级:管理员 帖子:47449 积分:251065 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2020/5/3 10:54:00 [只看该作者]

1、不要锁定表。
2、 保存时自动锁定行:

只需在BeforeSaveDataRow写上代码:

e.DataRow.Locked = True

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


加好友 发短信
等级:童狐 帖子:210 积分:1790 威望:0 精华:0 注册:2017/6/28 16:46:00
  发帖心情 Post By:2020/5/3 11:15:00 [只看该作者]

老师那要锁定所有行的代码怎么写呢
Dim dr As DataRow
dr = Tables("地区表").DataRows
dr.Locked = True
这样不行
[此贴子已经被作者于2020/5/3 11:18:25编辑过]

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


加好友 发短信
等级:管理员 帖子:47449 积分:251065 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2020/5/3 11:31:00 [只看该作者]

通过菜单锁定所有行,然后加上上面的代码,以后就不用管了

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


加好友 发短信
等级:童狐 帖子:210 积分:1790 威望:0 精华:0 注册:2017/6/28 16:46:00
  发帖心情 Post By:2020/5/3 12:56:00 [只看该作者]

老师我就是要学习一下锁定所有行的代码语句,或者在教程哪里提示一下,我好练习一下代码执行,也可以锻炼一下,一般有些菜单我需要的功能,我都想尝试用代码练习一下,

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7237 积分:40614 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2020/5/3 18:16:00 [只看该作者]

选择不同行之后,锁定刚刚离开那一行,无须遍历,效率高一点!

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


加好友 发短信
等级:童狐 帖子:210 积分:1790 威望:0 精华:0 注册:2017/6/28 16:46:00
  发帖心情 Post By:2020/5/3 21:01:00 [只看该作者]

陈老师,这个效率提高好多哦,可以贴代码学习一下吗?
[此贴子已经被作者于2020/5/3 21:01:27编辑过]

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7237 积分:40614 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2020/5/3 22:53:00 [只看该作者]

4楼贺老师给的就是快捷的办法,但有时候没有编辑完部分单元格就点击了保存,可能还要修改别的数据,需要重新解锁该行,我的方案是编辑完离开后再进行锁定,示例文件如下:

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

其实没必要,您还是用贺老师的方法吧,比如说您没有编辑完毕,离开了当前行,一样需要重新解锁!

[此贴子已经被作者于2020/5/4 10:27:36编辑过]

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


加好友 发短信
等级:童狐 帖子:210 积分:1790 威望:0 精华:0 注册:2017/6/28 16:46:00
  发帖心情 Post By:2020/5/3 22:57:00 [只看该作者]

同样也感谢程老师的耐心指点

 回到顶部