以文本方式查看主题

-  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=114219)
--  作者：天一生水
--  发布时间：2018/1/31 21:42:00
--  [求助]排除列后，锁定行

表的PrepareEdit代码，不起作用，请老师看看错在哪里？谢谢！

 

If e.Row("审核") = True Then     ’如果逻辑列“审核”勾选了，其他列锁定，但“审核”列不锁定
    For Each c As Col In Tables("数据表").cols
        If c.name <> "审核" Then
            e.Cancel = True
        Else
            e.Cancel = False
        End If
    Next
End If
--  作者：y2287958
--  发布时间：2018/1/31 21:48:00
--  
e.Cancel = e.col.name <> "审核" 
--  作者：天一生水
--  发布时间：2018/1/31 22:02:00
--  
大侠，这句看不懂，不会改，请指教！
--  作者：天一生水
--  发布时间：2018/1/31 22:09:00
--  

谢谢大侠！可以了

For Each c As Col In Tables("数据表").cols
    If e.Row("审核") = True Then
        e.Cancel = e.Col.name <> "审核"
    Else
        e.Cancel = False
    End If
Next
--  作者：y2287958
--  发布时间：2018/1/31 22:23:00
--  
就用2楼一行代码即可
--  作者：天一生水
--  发布时间：2018/1/31 22:37:00
--  

光用一行代码，我这里给锁住了，得这样才行。

 

If e.Row("审核") = True Then
        e.Cancel = e.Col.name <> "审核"   

End If
--  作者：y2287958
--  发布时间：2018/1/31 23:04:00
--  
 e.Cancel = e.Col.name <> "审核" AndAlso e.Row("审核") = True