以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  选中行锁定  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=127048)

--  作者:蓝蚂蚁
--  发布时间:2018/11/3 22:02:00
--  选中行锁定
表A有审核的逻辑列,当审核列单元格为True时锁定该行。
窗口中选中窗口_Table1(表A的副本表)行时,点击【审核】按钮,则能把该行锁定,代码如下:
    Dim r As Row = Tables("窗口_Table1").Current
    r("审核") =True

如果我选中行时,点击【审核】按钮,如何实现多锁定?
谢谢

--  作者:y2287958
--  发布时间:2018/11/3 22:06:00
--  
With Tables("订单")
    For 
i as Integer = .TopPosition To .BottomPosition
        .Rows(i).Locked = 
True
    Next
End
 
With


--  作者:蓝蚂蚁
--  发布时间:2018/11/3 22:14:00
--  
代码里我已经设置了:
        If e.DataRow("审核")=True Then
            e.DataRow.Locked = True
        Else
            e.DataRow.Locked = False
        End If
那么按照你的回复,如何把审核=True呢?

--  作者:y2287958
--  发布时间:2018/11/4 7:42:00
--  
上实例+详细说明
[此贴子已经被作者于2018/11/4 7:42:09编辑过]

--  作者:有点甜
--  发布时间:2018/11/4 20:51:00
--  

With Tables("订单")
    For i As Integer = .TopPosition To .BottomPosition

        .Rows(i)("审核") = True
        .Rows(i).Locked = True

    Next
End With