以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169733)
--  作者：lgz518
--  发布时间：2021/6/28 14:30:00
--  代码问题

下面的代码是正确：
If User.Group = "业务经理" Then       
Select Case e.Col.Name
    Case "审核","审核日期","审核人"
    Case Else
        e.Cancel = True \'则禁止编辑
End Select
End If

下面代码有问题，与需求不致，请帮修改，谢谢

需求1：如果分组不是业务经理，除"审核","审核日期","审核人"，为不可编辑，其他都可以编辑？
需求2：如何上面的代码和下代码合在一起，写得比较简洁？

If User.Group <> "业务经理" Then    \'如果分组不是业务经理

Select Case e.Col.Name
    Case "审核","审核日期","审核人"   \'如何实现禁止编辑
    Case Else
        e.Cancel = False \'则可编辑
End Select
End If
--  作者：有点蓝
--  发布时间：2021/6/28 14:31:00
--  
If User.Group = "业务经理" Then       
Select Case e.Col.Name
    Case "审核","审核日期","审核人"
    Case Else
        e.Cancel = True \'则禁止编辑
End Select
else
Select Case e.Col.Name
    Case "审核","审核日期","审核人"
        e.Cancel = True \'则禁止编辑
End Select
End If