Foxtable(狐表)用户栏目专家坐堂 → 解锁单元格


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

主题:解锁单元格

帅哥哟,离线,有人找我吗?
nxqtxwz
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
解锁单元格  发帖心情 Post By:2017/12/12 19:43:00 [只看该作者]

表内记录由不同的用户输入,有一个已锁定的备注列,想让输入选定记录的用户双击备注单元格后即可在备注单元格内输入,输入完后继续锁定,请问如何能做到呢。

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110594 积分:562866 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/12/12 20:21:00 [只看该作者]

输入选定记录的用户?具体截图说明一下

 回到顶部
帅哥哟,离线,有人找我吗?
nxqtxwz
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2017/12/12 20:38:00 [只看该作者]

老师,比如要在备注栏内输入内容的这一行是用户“办公室”输入的,只有以“办公室”登录才能双击后输入,其它用户则双击不起作用。

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110594 积分:562866 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/12/12 20:43:00 [只看该作者]

不要使用锁定的方式,参考:http://www.foxtable.com/webhelp/scr/0605.htm

PrepareEdit事件

If e.IsFocusCell  Then
    If e.Col.Name = "备注" then
        If e.Row("录入人") <> user.Name Then
            e.cancel = True
        End If
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
nxqtxwz
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2017/12/12 20:45:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
nxqtxwz
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2017/12/12 21:04:00 [只看该作者]

老师,我的项目已经这么设置了,就是只打印后就锁定,不允许再次打印或编辑,但有时执行过程中会有需要说明的情况,这样就设置了备注,想只打开备注这个单元格输入,输入后继续锁定,并且是谁输入的这条记录只有这个用户才能打开这条记录的备注单元格。

上面的代码打不开备注单元格呢。


 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110594 积分:562866 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/12/12 21:20:00 [只看该作者]

不要锁定列。

代码的录入人改为自己的列名。

还搞不懂就上传实例

 回到顶部
帅哥哟,离线,有人找我吗?
nxqtxwz
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2017/12/13 7:49:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:出差管理.zip


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/13 9:03:00 [只看该作者]

DoubleClick事件

 

If e.col.Name = "备注" AndAlso e.Row("派差部门") = User.Name Then

    e.Table.StartEditing

End If

[此贴子已经被作者于2017/12/13 9:03:09编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
nxqtxwz
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2017/12/13 14:26:00 [只看该作者]

老师真高人啊。

 回到顶部