以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]排除列后,锁定行  (http://foxtable.net/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