以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请老师指导下这段代码，谢谢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99693)
--  作者：youngk
--  发布时间：2017/4/25 9:46:00
--  请老师指导下这段代码，谢谢
Select  Case  e.Row("录入员")
    Case e.Row("录入员") Is Nothing
        e.Cancel = False
    Case  e.Row("录入员") IsNot Nothing
        If  e.Row("录入员")  <>  User.name Then
            e.Cancel = True
        End If
End Select
表达的意思是 如果空行 可以编辑  ，如果录入员有名字  只能由用户名等于录入员的情况才能编辑
--  作者：有点色
--  发布时间：2017/4/25 9:48:00
--  

If  e.Row.IsNull("录入员") = False AndAlso e.Row("录入员") <> User.Name Then

    e.Cancel = True

End If
--  作者：youngk
--  发布时间：2017/4/25 9:57:00
--  
谢谢