以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  按用户组设置删除或增加行权限问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128894)

--  作者:3076469014
--  发布时间:2018/12/17 18:41:00
--  按用户组设置删除或增加行权限问题

老师:我用用户组在表中设置增加行和删除行,有些表执行,有些表不执行,代码如下,麻烦纠正我的错误点。另外我要是增加多个用户组需要怎么写?


表事件/增加行BeforeAddDataRow

If User.Group = "仓库" Then
    e.Cancel = True
    Messagebox.show("你无权增加!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

表事件/删除行BeforeDeleteDataRow
If User.Group = "仓库" Then
    e.Cancel = True
    Messagebox.show("你无权删除!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

--  作者:cd_tdh
--  发布时间:2018/12/17 18:52:00
--  
不应该,代码没问题
--  作者:3076469014
--  发布时间:2018/12/17 18:55:00
--  
我是用可视化授权表格的,有些列需要授权修改,但是不能让用户组增加行或删除行,设置过程是边写边测代码的,同时设置2个用户组时,代码只执行一个用户组,另外一个组会失效

[此贴子已经被作者于2018/12/17 18:55:47编辑过]

--  作者:有点蓝
--  发布时间:2018/12/17 20:30:00
--  
多个分组这样判断

If User.Group = "仓库" andalso User.Group = "行政" Then 

或者

If User.Group = "仓库" orelse User.Group = "行政" Then