插件中动态对单据头下拉列表赋值

    Dim oBill As Object

    Dim dctTableInfo As KFO.Dictionary

    Dim sKey As String

    Dim lCtlIndex As Long

    '先获取下拉列表控件的Index

    Set dctTableInfo = m_BillInterface.TableInfo

    sKey = dctTableInfo("Map")("FComboBox") 'FComboBox为下拉列表的关键字

    lCtlIndex = dctTableInfo(sKey)("CtlIndex")

    '再对控件的下拉列表进行赋值

    Set oBill = m_BillInterface.Bi