Foxtable(狐表)用户栏目专家坐堂 → 关于AllowEdit的一点疑问


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

主题:关于AllowEdit的一点疑问

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


加好友 发短信
等级:一尾狐 帖子:443 积分:3530 威望:0 精华:0 注册:2013/2/9 12:45:00
关于AllowEdit的一点疑问  发帖心情 Post By:2017/9/15 16:13:00 [只看该作者]

发现一个很奇怪的问题。
控件中的副本表属性AllowEdit为false的时候,
afterload里面写cols代码AllowEdit为true(代码如下),结果不起作用,所有列不允许编辑,整个表被锁定。

但是反过来,
控件中的副本表属性AllowEdit为true的时候,
afterload里面写cols代码AllowEdit为false,结果就可以,只锁定对应列。

为什么会这样咧?


Dim tr As Row = Tables("副-订单编辑_Table1").Current
With Tables("副-订单编辑_Table1")
    If User.Group = "门店" Then
        If tr("订单状态") = "门店新订单"
            .Cols("需求量").AllowEdit = True
            .Cols("物料备注").AllowEdit = True
        End If
        If tr("订单状态") = "仓库已出货"
            .Cols("实收量").AllowEdit = True
        End If
    Else If User.Group = "PMC" Then
        If tr("订单状态") = "已提交PMC"
            .Cols("分配量").AllowEdit = True
            .Cols("物料备注").AllowEdit = True
        End If
    Else If User.Group = "分拣员" Then
        If tr("订单状态") = "PMC已确认"
            .Cols("实发量").AllowEdit = True
        End If
    Else If User.Group = "仓库" Then
        If tr("订单状态") = "门店已回单"
            .Cols("结算量").AllowEdit = True
        End If
    End If
End With

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


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

锁定表以后,整个表不能编辑了,你解锁列没有效果的。

 

 


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


加好友 发短信
等级:一尾狐 帖子:443 积分:3530 威望:0 精华:0 注册:2013/2/9 12:45:00
  发帖心情 Post By:2017/9/15 16:24:00 [只看该作者]

你看我代码,我本来是想要锁定大部分列,只开放一两个列给他们填写的,
现在要用代码怎么实现?
我意思是更加简洁的方法。
[此贴子已经被作者于2017/9/15 16:24:07编辑过]

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


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

在前面加上代码

 

For Each c As Col In Tables("副-订单编辑_Table1").cols
    c.AllowEdit = False
Next


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


加好友 发短信
等级:一尾狐 帖子:443 积分:3530 威望:0 精华:0 注册:2013/2/9 12:45:00
  发帖心情 Post By:2017/9/15 18:14:00 [只看该作者]

是的,现在就是这样解决……

 回到顶部