Collection: EnumerationItems

Collection: EnumerationItems

Elements of a enumeration in the model of a data store.

The following example displays the number of elements of the first enumeration of the model belonging to the ASAM Browse Settings Example data store:

Dim oMyDataStore, oMyEnumItems
Set oMyDataStore = Navigator.ConnectDataStore("ASAM Browse Settings Example")
Set oMyEnumItems = oMyDataStore.Model.Enumerations.Item(1).Items
MsgBox oMyEnumItems.Count

oMyDataStore = dd.Navigator.ConnectDataStore("ASAM Browse Settings Example") 
oMyEnumItems = oMyDataStore.Model.Enumerations.Item(1).Items 
print oMyEnumItems.Count