新增文章

文章标题 分类 C# 云星空 K3 BOS K3 功能 用友 Oracle python SQL MySql PHP HTML script windows Access 影视后期 财务 服务 生活 内容 Private WithEvents m_ListInterface As ListEvents '定义 ListEvents 接口. 必须具有的声明, 以此来获得事件 Private Sub Class_Terminate() '释放接口对象 '注意: 此方法必须存在, 请勿修改 Set m_ListInterface = Nothing End Sub Public Sub Show(ByVal oListInterface As Object) 'ListEvents 接口实现 '注意: 此方法必须存在, 请勿修改 Set m_ListInterface = oListInterface Dim lDeptID As Long Dim rs As ADODB.Recordset Dim sSql As String sSql = " select t1.FDepartmentID from t_Emp t1 inner join t_user t2 on t1.FItemID=t2.FEmpID " & _ " where t2.FUserID=" & m_ListInterface.K3Lib.User.UserID Set rs = m_ListInterface.K3Lib.GetData(sSql) If rs.RecordCount > 0 Then lDeptID = CLng(rs("FDepartmentID").Value) End If m_ListInterface.ListFilterString = "t_BOS200000003.FDeptID=" & lDeptID '过滤条件 只允许看到本部门的单据 m_ListInterface.RefreshList End Sub 返回 保存