以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于权限问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187705)

--  作者:lin98
--  发布时间: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编辑过]

--  作者:有点蓝
--  发布时间: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