以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64192)
--  作者：爱相随
--  发布时间：2015/2/6 16:29:00
--  表代码

老师，请你帮忙给我看一下，就是一张表里有一列是“XZH”，加了下列代码后，经办人都不能操作“XZH”列了，我要的是除了部门负责人外，经办人自己也能操作这一列

If e.Col.Name = "XZH" Then
    If User.Roles <> "部门负责人" Then
        e.cancel = True
    End If
Else
  If e.Row("XMGLDW") <> User.GROUP OrElse e.Row("JBR") <> User.NAME  Then \'在编辑某行前,会自动判断负责此行的部门列是否和登录用户所属分组相同,如果不同,则取消编辑.
    e.Cancel = True
  End If
End If

谢谢！！
--  作者：Bin
--  发布时间：2015/2/6 16:40:00
--  


If e.Col.Name = "XZH" Then
    If User.IsRole("部门负责人")=False Then
        e.cancel = True
    End If
Else
--  作者：有点甜
--  发布时间：2015/2/6 16:41:00
--  
If e.Col.Name = "XZH" Then
    If User.Roles <> "部门负责人" Then
        If e.Row("XMGLDW") <> User.GROUP OrElse e.Row("JBR") <> User.NAME  Then \'在编辑某行前,会自动判断负责此行的部门列是否和登录用户所属分组相同,如果不同,则取消编辑.
            e.Cancel = True
        End If
    End If
Else
    If e.Row("XMGLDW") <> User.GROUP OrElse e.Row("JBR") <> User.NAME  Then \'在编辑某行前,会自动判断负责此行的部门列是否和登录用户所属分组相同,如果不同,则取消编辑.
        e.Cancel = True
    End If
End If
--  作者：爱相随
--  发布时间：2015/2/6 16:52:00
--  
谢谢老师