- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 权限问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=163353)
-- 发布时间：2021/4/24 14:44:00
-- 权限问题
关于权限有二个问题：
1.下面代码没起作用，是什么问题？
Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
Case "订单.产品", "订单.客户", "订单.雇员"
If User.Name = "张三" Then
ctl.ReadOnly = BooleanEnum.False \'允许编辑
Else
ctl.ReadOnly = BooleanEnum.True \'禁止编辑
End If
Case "订单.已付款", "订单.批准"
If User.Name = "张明" Then
ctl.ReadOnly = BooleanEnum.False \'允许编辑
Else
ctl.ReadOnly = BooleanEnum.True \'禁止编辑
End If
End Select
上面代码，根据下面帮助做.
Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
Case "表A.第一列", "表A.第二列", "表A.第三列"
If User.Name = "张三" Then
ctl.ReadOnly = BooleanEnum.False \'允许编辑
Else
ctl.ReadOnly = BooleanEnum.True \'禁止编辑
End If
Case "表A.第四列", "表A.第五列", "表A.第六列"
If User.Name = "李四" Then
ctl.ReadOnly = BooleanEnum.False \'允许编辑
Else
ctl.ReadOnly = BooleanEnum.True \'禁止编辑
End If
End Select
Select Case ctl.BindingField
Case "表A.第一列", "表A.第二列", "表A.第三列"
If User.Name = "张三" Then
ctl.ReadOnly = BooleanEnum.False \'允许编辑
Else
ctl.ReadOnly = BooleanEnum.True \'禁止编辑
End If
Case "表A.第四列", "表A.第五列", "表A.第六列"
If User.Name = "李四" Then
ctl.ReadOnly = BooleanEnum.False \'允许编辑
Else
ctl.ReadOnly = BooleanEnum.True \'禁止编辑
End If
End Select
2，如何实现图的权限？关键是如何查看“下级”的成员的数据？谢谢
此主题相关图片如下：权限.jpg
-- 发布时间：2021/4/24 15:47:00
--
1、放到控件的Enter事件
2、比如"表A"有录入者列，下面筛选录入者为下级的数据
dim s as string = "张三,李四,...权限表查询的下级数据..."
tables("表A").filter = "," & s & ", like \'%,\' + 录入者 + \',%\'"
-- 发布时间：2021/4/24 16:22:00
--
我可能理解错，二个都搞好，上个实例，请帮看处理、在窗口上
-- 发布时间：2021/4/24 16:31:00
--
1楼这种代码是用来控制文本框的录入的，不是用来控制表格编辑，先认真看完帮助再用：http://www.foxtable.com/webhelp/topics/2342.htm
没看懂到底要做什么样的权限控制，使用文字描述一下。