新增文章

文章标题 分类 C# 云星空 K3 BOS K3 功能 用友 Oracle python SQL MySql PHP HTML script windows Access 影视后期 财务 服务 生活 内容 Private Sub m_ListInterface_MenuBarClick(ByVal BOSTool As K3ClassEvents.BOSTool, Cancel As Boolean) '菜单事件 '------------------------------------------------------------------------------------------------------------ '拼接 FID Dim aSelect As KFO.Vector, aFID As String: Set aSelect = m_ListInterface.GetSelectedBillInfo For i = 1 To aSelect.Size If Not i = aSelect.Size Then aFID = aFID & aSelect(i)("FID") & "," aFEntryId = aFEntryId & aSelect(i)("FEntryId") & "," Else aFID = aFID & aSelect(i)("FID") aFEntryId = aFEntryId & aSelect(i)("FEntryId") End If Next End Sub 返回 保存