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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口权限问题

共有2226人关注过本帖树形打印复制链接主题：[求助]窗口权限问题

czgtiger

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

加好友

发短信

等级：一尾狐帖子：475 积分：3548 威望：0 精华：0 注册：2012/8/30 10:58:00

[求助]窗口权限问题 发帖心情

Post By：2015/6/7 18:33:00 [只看该作者]

按帮助上的例子，发现，权限设置只对主表有用，对子表不起作用，是哪里出了问题呢？请高人指教

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/7 19:27:00 [只看该作者]

指哪里，什么意思。

czgtiger

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

加好友

发短信

等级：一尾狐帖子：475 积分：3548 威望：0 精华：0 注册：2012/8/30 10:58:00

Post By：2015/6/7 19:42:00 [只看该作者]

《录入窗口与权限管理》中，输入框的授权这一节，其中表A的录入，我在窗口中设置了表A，表A.表B，表A中的输入者表A.表B的输入者不一定是同一个人，为了区分，把表A.表B的输入者改成记录人。然后按帮助中的代码写进去，发现对表A起作用，对表A.表B不起作用

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.表B.第一列"

        If User.Name = "李四" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
End Select