BOS单据审核后插件中解锁字段
m_BillInterface.LockCell
Dim dct As KFO.Dictionary
Dim lBillStatusBak As String
lBillStatusBak = m_BillInterface.BillStatus '先备份单据状态
m_BillInterface.BillCtl.BillStatus = 2 '设置单据为修改状态
Set dct = m_BillInterface.GetFieldInfoByKey("FText", "", 0) '获得字段的模板信息
Call m_BillInterface.LockCell(dct, -1, False) 'False表示解锁
'解锁完成后,还原单据状态
m_BillInterface.BillCtl.BillStatus = lBillStatusBak