以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码合并问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93909)
--  作者：wenyongjie
--  发布时间：2016/12/10 8:48:00
--  代码合并问题

   If e.Row("服务顾问") <> User.Name Then
    e.Cancel = True
End If

 

 

If  e.Col.Name = "审核" Then \'只有经理才能审批
    If User.Group <> "主管"  Then
    e.Cancel = True
End If
ElseIf e.Row("审核") = True Then \'如果此行已经审批了,则禁止修改
    e.Cancel = True
End If

 

 

 

这两个代码能合在一起用吗？我放在一起怎么不是想要的结果，审核不了。单独用都是正常的。
--  作者：有点蓝
--  发布时间：2016/12/10 9:21:00
--  
Select Case e.Col.Name
    Case "审核"
        If User.Group <> "主管" OrElse e.Row("审核") = True  Then
            e.Cancel = True
        End If
    Case Else
        If e.Row("服务顾问") <> User.Name OrElse e.Row("审核") = True Then
            e.Cancel = True
        End If
End Select
--  作者：wenyongjie
--  发布时间：2016/12/10 10:22:00
--  

主管自已想反审核操作不了。只能审，不能反审    还有就是数据库在服务器上，为什么数据不更新呢？
--  作者：有点蓝
--  发布时间：2016/12/10 10:34:00
--  
Select Case e.Col.Name
    Case "审核"
        If User.Group <> "主管" Then
            e.Cancel = True
        End If
    Case Else
        If e.Row("服务顾问") <> User.Name OrElse e.Row("审核") = True Then
            e.Cancel = True
        End If
End Select

数据不更新跟上面代码没有关系，数据也不会自己更新，需要自己写代码或者点击菜单的同步按钮更新