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.BillCtl

    Call oBill.SetComboxList(lCtlIndex, "VALUELIST{1=a,2=b,3=c}") '1表示保存值,a表示显示值

    m_BillInterface.SetFieldValue "FComboBox", "a", -1  '调用赋值函数赋值

注：由于是动态赋值，在下拉表字段的模板中并不存在保存值与显示值的对应关系，在下次显示单据的时候，需要跟据保存值去动态的显示下拉表值（建议保存值和显示值保持一致）