Foxtable(狐表)用户栏目专家坐堂 → 关于权限问题


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

主题:关于权限问题

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


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
关于权限问题  发帖心情 Post By:2023/8/5 15:47:00 [只看该作者]

表A有20列
需求:如果“第五列、第六列、第十列、第九列”为空时,只有“第五列、第六列、第十列、第九列”不能编辑,其他列都可编辑,
        否则  只有“第七列、第八列”可编辑,其他列都不能编辑
下面代码如何改,谢谢
Dim dr As Row = e.Row
If dr.IsNull("第五列") OrElse dr.IsNull("第六列") OrElse dr.IsNull("第九列")OrElse dr.IsNull("第十列") Then
    Select Case e.Col.Name
        Case "第五列", "第六列", "第九列", "第十列"
            e.Cancel = True
    End Select
Else
          Select Case e.Col.Name
            Case "第五列", "第六列", "第九列", "第十列"
                e.Cancel = False
        End Select
End If
[此贴子已经被作者于2023/8/5 15:53:42编辑过]

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/5 17:19:00 [只看该作者]

    Select Case e.Col.Name
        Case "第五列", "第六列", "第九列", "第十列"
if e.row.isnull(e.Col.Name) then
            e.Cancel = True
endif
Case "第七列", "第八列"
case else
Dim dr As Row = e.Row
If dr.IsNull("第五列") OrElse dr.IsNull("第六列") OrElse dr.IsNull("第九列")OrElse dr.IsNull("第十列") Then
else
e.Cancel = True
endif
    End Select

 回到顶部