Foxtable(狐表)用户栏目专家坐堂 → 可以编辑列


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

主题:可以编辑列

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


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
可以编辑列  发帖心情 Post By:2019/12/24 22:24:00 [只看该作者]

下面的例子是校长不能编辑A、B列,办公室主任不能编辑C、D列,如果我改成:校长可以编辑A、B、C列,办公室主任可以编辑C、D列怎么改呢?

 

Select  Case user.IsRole
     Case  "校长"
          Select  Case e.Col.Name
             Case "A","B" 

                 e.Cancel = True
          End  Select
     Case "办公室主任"
          Select  Case e.Col.Name
             Case "c","d" 
                 e.Cancel = True
          End  Select
 End  Select


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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/24 22:27:00 [只看该作者]

If user.IsRole("校长") Then
    Select  Case e.Col.Name
        Case "A","B","C"
        Case Else
            e.Cancel = True
        End  Select
    ElseIf user.IsRole("办公室主任") Then
        Select  Case e.Col.Name
            Case "c","d"
            Case Else
                e.Cancel = True
            End  Select
        End If

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


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2019/12/25 8:15:00 [只看该作者]

Select Case语句能否嵌套呢?

 

Select Case 变量一

    Select Case 变量
        Case
值1
           代码1

        Case
值2
           代码2

        Case
值3
           代码3

        Case
Else
          代码X
    End Select

   End Select


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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/25 8:38:00 [只看该作者]

可以,试试不就知道了

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


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2019/12/25 10:30:00 [只看该作者]

不好意思,我昨晚试了没成功,可能是哪出错了。谢谢老师指导。


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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/25 10:33:00 [只看该作者]

贴出自己完整代码说明

 回到顶部