BOS插件中实现根据对应代码携带出产品编码的示例

'Chang事件是在每个字段录入值发生变化回车之后触发

'参数@dct发生变化的字段模板，@dctFld发生变化的字段值对象

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

    Dim rs As ADODB.Recordset

    'FMapID为对应代码关键字

    '对对应代码字段录入发生变化做处理

    If dct("FKey") = "FMapID" Then

        '根据对应代码的值查询出相应的产品编号FNumber 

        '注意：实际情况可能获取单据上输入的客户或者供应商ID来组合查询过滤

        Set rs = m_BillInterface.K3Lib.GetData("SELECT t2.FNumber FR