窗口表权限 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口表权限

共有7867人关注过本帖树形打印复制链接主题：窗口表权限

denghui69986

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

加好友

发短信

等级：一尾狐帖子：499 积分：3262 威望：0 精华：0 注册：2022/3/25 7:44:00

窗口表权限

Post By：2022/7/27 15:00:00 [只看该作者]

老师帮忙看看我这代码设置在窗口权限下面四列普通用户不可编辑，怎么部起作用。

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/7/27 15:06:00 [只看该作者]

If User.Name = "开发者" orelse User.Name = "管理员" Then

denghui69986

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

加好友

发短信

等级：一尾狐帖子：499 积分：3262 威望：0 精华：0 注册：2022/3/25 7:44:00

Post By：2022/7/27 15:57:00 [只看该作者]

还是不起作用，我关了所有从新登录其它普通用户号还是可以编辑

有点蓝

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

加好友

发短信

等级：超级版主帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/7/27 16:04:00 [只看该作者]

调试

Dim ctl As WinForm.Control = e.Sender

msgbox(ctl.name & ": " & ctl.BindingField)

Select Case ctl.BindingField

Case "资料数据汇总.布料材质", "资料数据汇总.排版图", "资料数据汇总.用量", "资料数据汇总.实裁用量", "资料数据汇总.排版说明"

msgbox(User.Name)

If User.Name = "开发者" orelse User.Name = "管理员" Then

msgbox(1)

ctl.ReadOnly = BooleanEnum.False '允许编辑

Else

msgbox(2)

ctl.ReadOnly = BooleanEnum.True '禁止编辑

End If

denghui69986

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

加好友

发短信

等级：一尾狐帖子：499 积分：3262 威望：0 精华：0 注册：2022/3/25 7:44:00

Post By：2022/7/28 7:56:00 [只看该作者]

不知是否窗口名称不对还是哪里原因不起作用，表是链接资料数据汇总，帮忙看看我截图，

有点蓝

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

加好友

发短信

等级：超级版主帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/7/28 8:36:00 [只看该作者]

5楼截图的是窗口标题，不是窗口名称。

按4楼的方法调试，不起作用的时候弹出什么内容？

denghui69986

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

加好友

发短信

等级：一尾狐帖子：499 积分：3262 威望：0 精华：0 注册：2022/3/25 7:44:00

Post By：2022/7/28 9:40:00 [只看该作者]

不知什么原因，按照下面说明改的，

要实现此目的，只需在窗口的全局事件的Enter事件中设置代码：

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