插件中对字段进行赋值

Private Sub m_BillInterface_Change(ByVal dct As KFO.Dictionary, ByVal dctFld As KFO.Dictionary, ByVal Col As Long, ByVal Row As Long, Cancel As Boolean)

    Dim dctTemp As KFO.Dictionary

    Dim dctTempFld As KFO.Dictionary

    Select Case dct("FKey")

    Case "FCustomer" '如果核算项目改变 FCustomer核算项目的关键字

        Set dctTemp = m_BillInterface.GetFieldInfoByKey("FCustomer", "", 0) '根据关键字获取字段模板

        Set dctTempFld = m_Bill