以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  何如实现空白单元格在录入完成后自动锁定？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93290)
--  作者：lublinvisa
--  发布时间：2016/11/24 17:09:00
--  何如实现空白单元格在录入完成后自动锁定？

何如实现空白单元格在录入完成后自动锁定？

某列空白单元格，如何实现：普通组用户A在录入内容完成后，该单元格自动锁定，用户A不能再进行编辑修改，但是管理者用户组的用户可以对其进行修改，或者，经管理者用户组的用户授权后，普通用户A才能对已录入内容进行修改
--  作者：有点蓝
--  发布时间：2016/11/24 17:17:00
--  
PrepareEdit事件

If e.Col.Name = "某列"
    If User.Group <> "经理" And e.Row.Isnull("某列") = False Then
        e.Cancel = True
    End If
End If
--  作者：有点蓝
--  发布时间：2016/11/24 17:18:00
--  
密码授权可以参考：http://www.foxtable.com/webhelp/scr/2617.htm
--  作者：lublinvisa
--  发布时间：2016/11/25 23:57:00
--  

在实行单元格密码保护后，普通用户对已录入的非空单元格想要进行编辑时，必须输入密码方可操作。但是能不能做到：若是管理者用户组的用户登录，对已录入的非空单元格进行编辑时，则免除输入密码呢？
--  作者：有点蓝
--  发布时间：2016/11/26 9:03:00
--  
If e.Col.Name = "某列" And User.Group <> "管理组" Then \'如果编辑的是某列
    Dim psd As String
    InputValue(psd,"验证","请输入密码") \'输入密码
    If psd = "正确的密码" Then \'如果密码正确
        e.Table.StartEditing \'强行进入编辑状态
    Else
        Messagebox.Show("密码错误","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If