ISTSConceptChildren.Next

Description

This function checks if there is the next item in the list of the concept's children and moves the current item to the next one.

Syntax

object.Next()

Part	Attribute	Type	Description
`object`	Required	ISTSConceptChildren	The `object` always implements the ISTSConceptChildren interface

Return Value

bool

Returns True if there is the next item in the list of the concept's children and moves the current item to the next one.

Example

Display some information about the child concepts of the selected concept.

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 Concept Tree can be found in Maintain > Termset Maintenance or in Special > Terms.

Version information

Added in v7.8.0