- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 老师，表是锁定的，在新增行不锁定，保存后马上锁定的代码怎么写呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149464)
-- 发布时间：2020/5/3 10:50:00
-- 老师，表是锁定的，在新增行不锁定，保存后马上锁定的代码怎么写呢？
。
-- 发布时间：2020/5/3 10:54:00
--
1、不要锁定表。
2、 保存时自动锁定行：
只需在BeforeSaveDataRow写上代码：
e.DataRow.Locked = True
-- 发布时间：2020/5/3 11:15:00
--
老师那要锁定所有行的代码怎么写呢
Dim dr As DataRow
dr = Tables("地区表").DataRows
dr.Locked = True
这样不行
[此贴子已经被作者于2020/5/3 11:18:25编辑过]
-- 发布时间：2020/5/3 11:31:00
--
通过菜单锁定所有行，然后加上上面的代码，以后就不用管了
-- 发布时间：2020/5/3 12:56:00
--
老师我就是要学习一下锁定所有行的代码语句，或者在教程哪里提示一下，我好练习一下代码执行，也可以锻炼一下，一般有些菜单我需要的功能，我都想尝试用代码练习一下，
-- 发布时间：2020/5/3 18:16:00
--
选择不同行之后，锁定刚刚离开那一行，无须遍历，效率高一点！
-- 发布时间：2020/5/3 21:01:00
--
陈老师，这个效率提高好多哦，可以贴代码学习一下吗？
[此贴子已经被作者于2020/5/3 21:01:27编辑过]
-- 发布时间：2020/5/3 22:53:00
--
4楼贺老师给的就是快捷的办法，但有时候没有编辑完部分单元格就点击了保存，可能还要修改别的数据，需要重新解锁该行，我的方案是编辑完离开后再进行锁定，示例文件如下：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目42.foxdb |
其实没必要，您还是用贺老师的方法吧，比如说您没有编辑完毕，离开了当前行，一样需要重新解锁！
[此贴子已经被作者于2020/5/4 10:27:36编辑过]
-- 发布时间：2020/5/3 22:57:00
--
同样也感谢程老师的耐心指点