ISTSConceptChildren.Item

Example

Display some information about the child concepts 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)