以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  锁定多行代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=45565)
--  作者：aygp
--  发布时间：2014/2/3 12:33:00
--  锁定多行代码
如果需要一键锁定筛选出来的多行，代码应该怎样编写？      Syscmd.Row.Lock()  代码只能一次锁定一行。
--  作者：lsy
--  发布时间：2014/2/3 12:56:00
--  

Tables("订单").Filter = "产品 = \'PD03\'"
For Each r As Row In Tables("订单").Rows
    r.Locked = True
Next

 

 

Tables("订单").Filter = "产品 = \'PD03\'"
For i As Integer = 0 To Tables("订单").Rows.Count - 1
    \'Tables("订单").Select(i,0)

    Tables("订单").Position = i
    Syscmd.Row.Lock()
Next

[此贴子已经被作者于2014-2-3 13:11:45编辑过]
--  作者：aygp
--  发布时间：2014/2/3 13:37:00
--  
如果只锁定“名次”列中1到8的行，代码应该怎样修改
--  作者：lsy
--  发布时间：2014/2/3 14:35:00
--  

PrepareEdit

 

If e.Col.Name = "名次" Then
    For i As Integer = 0 To 7
        If e.Row.Index = i Then
            e.Cancel = True
            Exit For
        End If
    Next
End If