ISTSConcept.Children

Description

This function returns the children of the concept.

Syntax

object.Children( [All = false])

Part	Attribute	Type	Description
`object`	Required	ISTSConcept	The `object` always implements the ISTSConcept interface
`All`	In, Optional Default value is false	bool	The flag that allows to load the child concepts of the first level only

Return Value

ISTSConceptChildren

Returns the children of the concept.

Example

Display the tree of the selected concept.

Dim aTermSelector
Dim aTermset
Dim aMessage
Dim aConcept
Dim aChildConcepts, aChildConcept

Set aTermSelector = Profile.ShowTermSelector
if aTermSelector.Cancelled then
  Profile.MsgBox("No concept is selected")
  exit sub
end if

Set aTermset = aTermSelector.SelectedTermset
aMessage =_
  "The code of the termset: " & vbTab & vbTab & aTermset.Code & vbNewLine &_
  "The description of the termset: " & vbTab & aTermset.Description & vbNewLine 

set aConcept = aTermSelector.SelectedConcept   
aMessage = aMessage &_
  "The code of the concept: " & vbTab & vbTab & aConcept.Code & vbNewLine &_
  "The description of the concept: " & vbTab & aConcept.Description & vbNewLine 

set aChildConcepts = aConcept.Children(False)

do
  set aChildConcept = aChildConcepts.Item 
  if not aChildConcept is nothing then 
    aMessage = aMessage &_
      "  The code of the child concept: " & vbTab & vbTab & aChildConcept.Code & vbNewLine &_
      "  The description of the child concept: " & vbTab & aChildConcept.Description & vbNewLine
  end if      
loop until not aChildConcepts.Next  
      
Profile.MsgBox(aMessage)

Note: If 'All' parameter is True, all child concepts in the tree will be loaded. Otherwise the child concepts of the first level only will be loaded.

In Profile Client v8 on User Interface Children can be found in Maintain > Termset Maintenance or in Special > Terms.

Version information

Added in v7.8.0