- 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=184415)
-- 发布时间：2022/12/6 16:33:00
-- 权限失效问题
Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
Case "权限.第一列", "权限.第二列", "权限.第三列", "权限.第四列", "权限.第五列", "权限.第六列", "权限.第七列"
If User.Group = "业务员" Then
ctl.ReadOnly = BooleanEnum.False \'允许编辑
Else
ctl.ReadOnly = BooleanEnum.True \'禁止编辑
End If
Case "权限.审核", "权限.第批准", "权限.第意见"
If User.Group = "业务经理" Then
ctl.ReadOnly = BooleanEnum.False \'允许编辑
Else
ctl.ReadOnly = BooleanEnum.True \'禁止编辑
End If
End Select
看帮助做，结果失效，都可以编辑，是哪里出问题？
-- 发布时间：2022/12/6 16:41:00
--
想做
如果表A“审核”为否
业务员除了""权限.审核", "权限.第批准", "权限.第意见" 为不可编辑，其他都可以编辑
业务经理除了""权限.审核", "权限.第批准", "权限.第意见" 为可编辑，其他都不可编辑
如果表A“审核”为是
业务员对已审核的内容不可修改
业务经理除了""权限.审核", "权限.第批准", "权限.第意见" 为可编辑，其他都不可编辑
或角色
如果表A“审核”为否
角色录入 除了""权限.审核", "权限.第批准", "权限.第意见" 为不可编辑，其他都可以编辑
角色审批 除了""权限.审核", "权限.第批准", "权限.第意见" 为可编辑，其他都不可编辑
如果表A“审核”为是
角色录入 对已审核的内容不可修改
角色审批 除了""权限.审核", "权限.第批准", "权限.第意见" 为可编辑，其他都不可编辑
-- 发布时间：2022/12/6 16:54:00
--
Dim r As Row = Tables("权限").current
If r Is Nothing Then Return
Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
Case "权限.第一列", "权限.第二列", "权限.第三列", "权限.第四列", "权限.第五列", "权限.第六列", "权限.第七列"
If User.Group = "业务经理" Then
ctl.ReadOnly = BooleanEnum.True \'禁止编辑
Else
ctl.ReadOnly = BooleanEnum.False \'允许编辑
End If
Case "权限.审核", "权限.第批准", "权限.第意见"
If User.Group = "业务员" AndAlso r("审核") = False Then
ctl.ReadOnly = BooleanEnum.False \'禁止编辑
Else
ctl.ReadOnly = BooleanEnum.True \'允许编辑
End If
End Select
-- 发布时间：2022/12/6 17:07:00
--
老师，还是失效，都可编制，没限制
-- 发布时间：2022/12/6 20:02:00
--
窗口没有任何的录入控件，这用法是用来控制文本框、组合框的，不是用来控制表格的。控制表格用这种：http://www.foxtable.com/webhelp/topics/2255.htm