标题：表锁定后解锁单独列怎么设置？

1楼

xujie80 发表于：2017/2/23 11:16:00

Dim cl As Col
cl = Tables("订单").Cols("折扣")

Tables("订单").AllowEdit = false
cl.AllowEdit = true

整表锁定后，解锁其中的某列并不起作用？请问应该如何设定？难道只能每列都设定？

2楼

kylin 发表于：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

3楼

有点色 发表于：2017/2/23 11:35:00

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

4楼

xujie80 发表于：2017/2/23 14:09:00

明白

5楼

fx719 发表于：2023/11/7 15:30:00

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

6楼

有点蓝 发表于：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

共6 条记录, 每页显示 10 条, 页签: [1]