主题：请问：狐表有锁定行功能，只能锁定一行，如何实现锁定所有行。

请问：狐表有锁定行功能，只能锁定一行，如何实现锁定所有行。

锁定表

锁定表可以，我想如果数据有几行一起输入，因为我设计的表中，机号、产品名称、匹号等列内容，需要在输完其他列的内容后自动输入，避免前面输入的其他列内容被无意中修改，采用锁定所有行，但是不影响增加行。而锁定表不能增加行。

写一个for循环

for each r as row in tables().rows

r.locked = true

next

锁定所有行

 for each r as row in tables("表").rows
     r.allowedit = false
 next

锁定所有行等于锁定整个表：

 

AllowEdit

逻辑型，是否允许用户修改表中数据。
默认为True，设为False，将禁止用户修改表中数据，也就是锁定表。

例如要锁定产品表：

DataTables("产品").AllowEdit = False

如果要取消锁定产品表：

DataTables("产品").AllowEdit = True

 

4楼老师，出现下列问题，放在按钮中

 

此主题相关图片如下：134.jpg

本人用下列代码放在按钮中能锁定所有行，必须先用鼠标把所有行选出来，一按按钮即可，是否不用选行？

 

benrenWith Tables("坯布信息")
    If .TopPosition > -1 Then '如果选定区域包括数据行
        For i As Integer = .TopPosition To .BottomPosition
            .Rows(i).Locked = True
        Next
    End If
End With

此主题相关图片如下：135.jpg

你照抄也不会这样抄吧?

 

for each r as row in tables("表名").rows

    r.locked = true

next