以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  编辑权限  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151682)
--  作者：nxqtxwz
--  发布时间：2020/6/30 20:44:00
--  编辑权限

怎么能实现允许新增加记录呢？下面的代码把空白的记录也禁止编辑了。

Select Case e.Col.name
    Case "姓名","性别","出生年月","进入乡镇时间","乡镇工作年限","工作单位职务","工作经历","备注","补贴分档"
        If e.Row("姓名") <> User.Name Then
            e.cancel = True
        End If
 End Select
--  作者：y2287958
--  发布时间：2020/6/30 21:02:00
--  
判断一下行的状态
--  作者：nxqtxwz
--  发布时间：2020/6/30 21:05:00
--  
以下是引用y2287958在2020/6/30 21:02:00的发言：
判断一下行的状态

老师好，是不是判断行的单元格是否为空呢？
--  作者：有点蓝
--  发布时间：2020/6/30 21:48:00
--  
http://www.foxtable.com/webhelp/topics/0595.htm
--  作者：nxqtxwz
--  发布时间：2020/7/1 15:17:00
--  

老师，我这样写怎么不行？

姓名与用户名相同的可以编辑

有空格的记录可以编辑

 

If e.Row("姓名") <> User.Name And ("姓名 Is null or 性别 Is null or 出生年月 Is null or 进入乡镇时间 Is null or 乡镇工作年限 Is null or 工作单位职务 Is null or 工作经历 Is null")  Then
    e.cancel = True
End If
--  作者：有点蓝
--  发布时间：2020/7/1 15:32:00
--  
Select Case e.Col.name
    Case "姓名","性别","出生年月","进入乡镇时间","乡镇工作年限","工作单位职务","工作经历","备注","补贴分档"
        If e.Row("姓名") <> User.Name andalso e.Row.isull(e.Col.name) = false Then
            e.cancel = True
        End If
 End Select