锁定表情况下的代码增加删除行问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 锁定表情况下的代码增加删除行问题

共有2585人关注过本帖树形打印复制链接主题：锁定表情况下的代码增加删除行问题

judyhu2008

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：154 积分：1217 威望：0 精华：0 注册：2015/10/29 16:22:00

锁定表情况下的代码增加删除行问题 发帖心情

Post By：2016/2/13 21:18:00 [显示全部帖子]

这个问题之前论坛里有人问过，不过没有得到满意的答案。

我测试了一下，把表属性里的允许修改/增加行/删除行等属性都设置为False，直接添加是不行，不过用代码，TABLES("GE").ADDNEW, TABLES(GE").CURRENT.DELETE照样可以执行。

用了另一种方法，在命令窗口写代码：

Tables("表A").allowaddnew=False

Tables("表A").addnew

ADDNEW的动作也还是执行了。

“这是为什么呢？“，有什么办法，可以真正做到不允许新增删除行吗？

judyhu2008

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：154 积分：1217 威望：0 精华：0 注册：2015/10/29 16:22:00

Post By：2016/2/17 10:06:00 [显示全部帖子]

大红袍老师，我已经写了如下代码：

一、在表的prepareedit里：
If user.group<> "管理员" Then
e.cancel=True
End If
二、在beforeadddatarow里：
e.cancel = not e.DataTable.AllowAddNew
三、在beforedeletedatarow里：
e.cancel = not e.DataTable.Allowdelete

但是我用非管理员账号登录，照常能新增删除行啊。

judyhu2008

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：154 积分：1217 威望：0 精华：0 注册：2015/10/29 16:22:00

Post By：2016/2/17 10:08:00 [显示全部帖子]

另外，有没有办法全局设定对所有的表有效，一个系统里有很多表，如果一个表一个表去设置会很麻烦。
谢谢指教。

下一主题 >> << 上一主题

主题：锁定表情况下的代码增加删除行问题