BOS插件中锁定字段

栏目：k3wise知识作者：金蝶来源：金蝶云社区发布：2024-09-22浏览：1

BOS插件中锁定字段

Dim dct As KFO.Dictionary

Dim sKey As String

sKey = "fdecimal1" 'sKey为字段的关键字，对应ICClassTableInfo的中的Fkey

Set dct = m_BillInterface.GetFieldInfoByKey(sKey, "", 0) '获得改字段的模板信息

If m_BillInterface.K3Lib.User.UserName = "总经理" Then

Call m_BillInterface.LockCell(dct, -1, False) 'False表示解锁

Else

Call m_BillInterface.LockCell(dct, -1, True) 'True表示锁定

End If

Set dct = Nothing

本文2024-09-22 16:40:04发表“k3wise知识”栏目。
本文链接：https://wenku.my7c.com/article/kingdee-k3wise-89416.html

阅读排行