新增文章

文章标题 分类 C# 云星空 K3 BOS K3 功能 用友 Oracle python SQL MySql PHP HTML script windows Access 影视后期 财务 服务 生活 内容 '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 FROM ICItemMapping t1 INNER JOIN t_ICItem t2 ON t1.FItemID=t2.FItemID WHERE FMapNumber='" & dctFld("FFND") & "'") If Not rs.EOF Then '将查出的产品编码赋值到界面上去(FItemID为产品编号字段关键字) m_BillInterface.SetFieldValue "FItemID", rs("FNumber"), Row End If Set rs = Nothing End If End Sub 原文链接：https://vip.kingdee.com/article/46697315911139328?productLineId=7&isKnowledge=2&lang=zh-CN 返回 保存