ISTSConceptTerms.Next

Description

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

Syntax

object.Next()

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

Return Value

bool

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

Example

Display some information about the terms of the selected concept.

Dim aTermSelector
Dim aTermset
Dim aMessage
Dim aConcept
Dim aTerms, aTerm

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 aTerms = aConcept.Terms

do
  set aTerm = aTerms.Item 
  aMessage = aMessage &_
    "The code of the term: " & vbTab & vbTab & aTerm.Code & vbNewLine &_
    "The description of the term: " & vbTab & aTerm.Description & vbNewLine  
loop until not aTerms.Next  
      
Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0