新增文章

文章标题 分类 C# 云星空 K3 BOS K3 功能 用友 Oracle python SQL MySql PHP HTML script windows Access 影视后期 财务 服务 生活 内容 Dim aComm1 As New aComm Private WithEvents m_ListInterface As ListEvents '定义 ListEvents 接口. 必须具有的声明, 以此来获得事件 Public Sub Show(ByVal oListInterface As Object) 'ListEvents 接口实现 '注意: 此方法必须存在, 请勿修改 Set m_ListInterface = oListInterface aFUserId = m_ListInterface.K3Lib.User.UserID aFClassTypeID = m_ListInterface.DataSrv.ClassTypeID aTableName = m_ListInterface.DataSrv.ClassType("FTableName") '--------------------------------------------------------------------------------------------------------------------------------------- ' 过滤条件 只能查看 本人创建的单据 aControl = aComm1.aCheckFunc1(m_ListInterface, aFUserId, aFClassTypeID, 18, "ShowOne") '只能查看 本人创建的单据 If aControl = True Then m_ListInterface.ListFilterString = aTableName & ".FBiller = " & aFUserId '制单人 = 当前用户 m_ListInterface.RefreshList End If End Sub Private Sub Class_Terminate() Set m_ListInterface = Nothing '释放接口对象 '注意: 此方法必须存在, 请勿修改 End Sub 返回 保存