Foxtable(狐表)用户栏目专家坐堂 → [求助]这句代码把整行都禁止编辑了


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

主题:[求助]这句代码把整行都禁止编辑了

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


加好友 发短信
等级:童狐 帖子:255 积分:2152 威望:0 精华:0 注册:2013/6/8 22:41:00
[求助]这句代码把整行都禁止编辑了  发帖心情 Post By:2017/3/14 23:06:00 [只看该作者]

 

我只要其它几列禁此编辑,该怎么改代码? 求教在线老师


此主题相关图片如下:1.jpg
按此在新窗口浏览图片
[此贴子已经被作者于2017/3/14 23:10:32编辑过]

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


加好友 发短信
等级:童狐 帖子:255 积分:2152 威望:0 精华:0 注册:2013/6/8 22:41:00
  发帖心情 Post By:2017/3/14 23:12:00 [只看该作者]

有点蓝老师在线吗,帮助下吧~~


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


加好友 发短信
等级:狐精 帖子:3223 积分:21401 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2017/3/14 23:14:00 [只看该作者]

http://www.foxtable.com/webhelp/index.htm?page=2504.htm

精确控制单元格编辑权限

Foxtable的权限不仅可以针对表、行、列,还可以精确控制到单个单元格。

假定有一个名为“标注”的列, 当此列中某单元格内容为空的时候,任何用户都可以编辑,如果单元格已经有内容,则只有张经理才能编辑。
为此可将表的PrepareEdit事件代码设置为:

If e.Col.Name = "标注" Then '如果修改的是标注列
    If
 e.Row.IsNull("标注") = False Then '如果已经有内容
        
If User.Name <> "张经理" Then '且用户不是张经理
            e.Cancel = 
True '那么禁止编辑
        
End If
    End
 If
End
 
If


本页地址:http://www.foxtable.com/webhelp/scr/2258.htm

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


加好友 发短信
等级:童狐 帖子:255 积分:2152 威望:0 精华:0 注册:2013/6/8 22:41:00
  发帖心情 Post By:2017/3/14 23:15:00 [只看该作者]

看了,这个地方了,没明白 怎么回事儿

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


加好友 发短信
等级:狐精 帖子:3223 积分:21401 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2017/3/14 23:21:00 [只看该作者]

列不是col吗,怎么是row??

关于Cols

通过Cols集合,可以获得指定名称的列,例如:

Tables("订单").Cols("客户")

表示订单表的客户列。

[此贴子已经被作者于2017/3/14 23:22:43编辑过]

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


加好友 发短信
等级:幼狐 帖子:169 积分:1036 威望:0 精华:0 注册:2016/1/12 20:03:00
  发帖心情 Post By:2017/3/14 23:28:00 [只看该作者]

f e.Col.Name = "×××" Then 
           e.Cancel = 
True       
End
 
If

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


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

Select Case e.Col.Name
    Case
 "A列","B列","C列"
        
If e.Row("需要制版") = False Then 

e.cancel = false

  end if


End Select


 回到顶部