Foxtable(狐表) → 用户栏目 → 专家坐堂 → 何如实现空白单元格在录入完成后自动锁定？


  共有1778人关注过本帖树形打印复制链接

主题：何如实现空白单元格在录入完成后自动锁定？
帅哥哟，离线，有人找我吗？
lublinvisa
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：14 积分：190 威望：0 精华：0 注册：2016/9/26 18:12:00 		何如实现空白单元格在录入完成后自动锁定？  发帖心情 Post By：2016/11/24 17:09:00 [只看该作者]

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

某列空白单元格，如何实现：普通组用户A在录入内容完成后，该单元格自动锁定，用户A不能再进行编辑修改，但是管理者用户组的用户可以对其进行修改，或者，经管理者用户组的用户授权后，普通用户A才能对已录入内容进行修改
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112399 积分：572263 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112399 积分：572263 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/24 17:18:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
lublinvisa
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：14 积分：190 威望：0 精华：0 注册：2016/9/26 18:12:00 		  发帖心情 Post By：2016/11/25 23:57:00 [只看该作者]

在实行单元格密码保护后，普通用户对已录入的非空单元格想要进行编辑时，必须输入密码方可操作。但是能不能做到：若是管理者用户组的用户登录，对已录入的非空单元格进行编辑时，则免除输入密码呢？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112399 积分：572263 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询