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