The number of the objective versions within the collection.
object.Count
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISRecallObjectiveVersCollection interface |
int
Display the number of the objective versions within the collection.
Dim aMacroResult, aPlans, aVisits, aObjectives, aPlan, aResultHTML
set aPlans = Plans
set aVisits = Interventions
set aObjectives = Objectives
set aMacroResult = Profile.FindVariable("MacroResult")
aResultHTML = _
"Plans Count: " & aPlans.Count & "<br>"
for i = 0 to aPlans.Count - 1
set aPlan = aPlans.Item(i)
aResultHTML = aResultHTML & _
"<li>" & aPlan.Description & "</li><br>"
next
aResultHTML = aResultHTML &_
"Objectives Count: " & aObjectives.Count & "<br>" &_
"Visits Count: " & aVisits.Count & "<br>"
aMacroResult.Value = aResultHTML
In Profile Client v8 on User Interface Objective Version Collection cannot be found.