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


  共有2612人关注过本帖树形打印复制链接

主题:录入窗口与权限

帅哥哟,离线,有人找我吗?
643561836
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:171 积分:1392 威望:0 精华:0 注册:2013/2/1 10:00:00
录入窗口与权限  发帖心情 Post By:2014/10/16 17:18:00 [显示全部帖子]

录入窗口与权限:如何指定用户编辑不同的列
图片点击可在新窗口打开查看此主题相关图片如下:001.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
643561836
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:171 积分:1392 威望:0 精华:0 注册:2013/2/1 10:00:00
  发帖心情 Post By:2014/10/16 17:22:00 [显示全部帖子]

帮助中的文件如何改?

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


 回到顶部