标题：[讨论]帮助中锁定所有行代码不能正确执行！

1楼

yanzhen2010 发表于：2011/8/14 13:26:00

帮助中锁定所有行代码不能正确执行，下面是原始代码：

With CurrentTable

For i As Integer = .TopPosition To .BottomPosition

.Rows(i).Locked = True

End With

代码不能锁定所有行，而是锁定了当前行。

锁定所有行的代码如何写呢？

比如新增时，锁定所有行而取消锁定当前行，就像易表那样：lockall and unlockrow

退出时锁定所有行又如何写呢？

忘高手指点

2楼

czy 发表于：2011/8/14 13:45:00

你搞错了吧，上面的代码分明是锁定选定行的代码。

锁定全表

For Each r As Row In CurrentTable.Rows
r.Locked = True
Next

3楼

yanzhen2010 发表于：2011/8/14 14:07:00

那么：

For i As Integer = .TopPosition To .BottomPosition

是什么意思？

问题已解决，谢谢

[此贴子已经被作者于2011-8-14 14:37:41编辑过]

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