Smarteam 由Name取得LookUp的物件

 ''' <summary>
    ''' 由Name取得LookUp的ID
    ''' </summary>
    ''' <param name="p_ClassName"></param>
    ''' <param name="p_Name"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function GetLookupID(ByVal p_ClassName As String, ByVal p_Name As String) As Integer
        Dim clsLookUp As ISmClass
        clsLookUp = SmSession.MetaInfo.SmClassByName(p_ClassName)
        Dim LookupObjs As ISmLookUpObjects = SmSession.ObjectStore.GetLookUpList(clsLookUp.ClassId)
        Dim LookupObj As ISmLookUpObject = LookupObjs.ItemByUniqueName(p_Name)
        Dim intRetID As Integer = LookupObj.Id
        Return intRetID
    End Function