BOS：锁定单元格方法

Public Sub LockOneCell(ByRef m_BillInterface As Object, ByVal sKey As String, _

    ByVal nRow As Long, Optional ByVal bValue As Boolean = True)

    Dim dctCtl As KFO.Dictionary

    Set dctCtl = m_BillInterface.GetFieldInfoByKey(sKey, "", 0)

    m_BillInterface.Lock