Foxtable(狐表)用户栏目专家坐堂 → 表锁定后解锁单独列怎么设置?


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

主题:表锁定后解锁单独列怎么设置?

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


加好友 发短信
等级:小狐 帖子:350 积分:3412 威望:0 精华:0 注册:2015/5/12 15:33:00
表锁定后解锁单独列怎么设置?  发帖心情 Post By:2017/2/23 11:16:00 [只看该作者]

Dim cl As Col
cl = 
Tables("订单").Cols("折扣")
Tables("订单").AllowEdit = false
cl.AllowEdit = true
整表锁定后,解锁其中的某列并不起作用?请问应该如何设定?难道只能每列都设定?

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


加好友 发短信 F6
等级:狐精 帖子:3030 积分:19188 威望:0 精华:2 注册:2008/9/1 7:50:00
  发帖心情 Post By:2017/2/23 11:33:00 [只看该作者]

这是当然,列解开了,表还没有解开,你认为可能编辑吗?
希望对列的编辑控制,只能用列的控制,参考代码
for each cl as col in Tables("订单").Cols
    if cl.name = "折扣" 
       cl.AllowEdit = true
    else
       cl.AllowEdit = False
   end if
next

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


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

 不要锁定表,改成锁定所有的列。参考2楼代码。

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


加好友 发短信
等级:小狐 帖子:350 积分:3412 威望:0 精华:0 注册:2015/5/12 15:33:00
  发帖心情 Post By:2017/2/23 14:09:00 [只看该作者]

明白

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


加好友 发短信
等级:幼狐 帖子:65 积分:781 威望:0 精华:0 注册:2022/11/15 18:31:00
  发帖心情 Post By:2023/11/7 15:30:00 [只看该作者]

这个2楼的代码是在prepareedit里设置吗

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


加好友 发短信
等级:超级版主 帖子:106320 积分:540735 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/11/7 15:34:00 [只看该作者]

以下是引用fx719在2023/11/7 15:30:00的发言:
这个2楼的代码是在prepareedit里设置吗

不是,这种是按钮代码。

prepareedit更简单:

if e.col.name <> "折扣"  then
e.cancel=true
end if

 回到顶部