Foxtable(狐表)用户栏目专家坐堂 → 求助


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

主题:求助

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


加好友 发短信
等级:幼狐 帖子:114 积分:1147 威望:0 精华:0 注册:2016/9/12 14:50:00
求助  发帖心情 Post By:2017/1/25 16:09:00 [只看该作者]

单元格录入次数超过规定值,该单元格就被锁定。代码如何写

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


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

定义全局变量记录编辑次数

AfterEdit事件

if vars("次数") >= 5

e.Row.Locked = True

end if

vars("次数") += 1



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


加好友 发短信
等级:幼狐 帖子:114 积分:1147 威望:0 精华:0 注册:2016/9/12 14:50:00
  发帖心情 Post By:2017/1/25 20:18:00 [只看该作者]

老师,我试了,单元格我录入四次,第五次就不能更改了。可我再回复录入状态就再也不能录入了,不知怎么回事,我已经把e.Row.Locked = True改为e.Row.Locked = False也不行,还烦老师给与解答


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


加好友 发短信
等级:童狐 帖子:213 积分:2237 威望:0 精华:0 注册:2012/9/3 16:21:00
  发帖心情 Post By:2017/1/25 21:06:00 [只看该作者]

大于5,去掉等于

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


加好友 发短信
等级:幼狐 帖子:114 积分:1147 威望:0 精华:0 注册:2016/9/12 14:50:00
  发帖心情 Post By:2017/1/25 21:22:00 [只看该作者]

老师,我试过了,没用的

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


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

上传示例具体说明要求

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


加好友 发短信
等级:幼狐 帖子:114 积分:1147 威望:0 精华:0 注册:2016/9/12 14:50:00
  发帖心情 Post By:2017/1/26 16:08:00 [只看该作者]

老师,可能我没有表达清楚,是这样的,意思是这个单元格录入不能出错超过四次,否则此单元格锁定,要重新录入必须通过领导同意方可解锁。现在我用了
AfterEdit事件

if vars("次数") >= 5

e.Row.Locked = True

end if

vars("次数") += 1
这个代码后,录入超过四次,单元格所在的行都被锁定了,无法进行编辑,代码取消也不行,现在我要再编辑怎样才能解锁呢

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/2 11:05:00 [只看该作者]

StartEdit事件

 

If e.Col.name = "某列" Then
    If vars("次数") >= 5
        e.Cancel = true
    End If
    vars("次数") += 1
End If

解锁代码

 

vars("次数") = 4


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


加好友 发短信
等级:幼狐 帖子:114 积分:1147 威望:0 精华:0 注册:2016/9/12 14:50:00
  发帖心情 Post By:2017/2/12 14:07:00 [只看该作者]

StartEdit事件

 

If e.Col.name = "某列" Then
    If vars("次数") >= 5
        e.Cancel = true
    End If
    vars("次数") += 1
End If

解锁代码

 

vars("次数") = 4

老师,vars("次数") = 4这是解锁代码吗,我试过好几次,怎么无法解开啊,试过的行都被锁定了,删都删不掉了


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


加好友 发短信
等级:狐神 帖子:6885 积分:43595 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2017/2/12 14:22:00 [只看该作者]

以下是引用huaqing8828在2017/2/12 14:07:00的发言:

StartEdit事件

 

If e.Col.name = "某列" Then
    If vars("次数") >= 5
        e.Cancel = true
    End If
    vars("次数") += 1
End If

解锁代码

 

vars("次数") = 4

老师,vars("次数") = 4这是解锁代码吗,我试过好几次,怎么无法解开啊,试过的行都被锁定了,删都删不掉了

这是对某一列限制,不是对某一单元格限制。


 回到顶部
总数 11 1 2 下一页