ID of the parent organisation node for the organisation node. On user Interface Parent ID cannot be found.
object.ParentID
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISOrgMember interface |
int
Display the name and ID of the parent organisation node for the organisation node.
Dim aFilter
Dim aOrgMember
Dim aOrgMembers
Dim aParent
Dim aMessage
Set aFilter = Profile.CreateOrgMembersFilter
set aOrgMembers = Profile.LoadOrgMembers(aFilter)
aMessage = "Org Nodes Count = " & aOrgMembers.Count
for each aOrgMember in aOrgMembers
aMessage = aMessage & vbNewLine & "-------------------------" & vbNewLine & _
"ORGANISATION NODE: " & aOrgMember.Name & vbNewLine &_
"PARENT ID: " & aOrgMember.ParentID
set aParent = aOrgMember.Parent
if not aParent is nothing then
aMessage = aMessage & vbNewLine & "PARENT: " & aParent.Name
end if
next
Profile.MsgBox(aMessage)