Adding Many Objects to a Collection
This section shows example code of adding multiple objects to a collection.
'/////////////////////////////////////////////////////////////////////////////////
'
' AddManyToCollection
'
'/////////////////////////////////////////////////////////////////////////////////
Sub AddManyToCollection()
Dim keyList As New MetaInfoKeyList
Dim testList As New MetaInfoKeyList
Dim key As New MetaInfoKey
Dim testKey As MetaInfoKey
DisplayHeadingLine "MetaActive::AddManyToCollection"
key.ObjectID = Class1Obj1
keyList.Add key
key.ObjectID = Class1Obj2
keyList.Add key
Repository.AddManyToCollection DESTINATION, Class0Obj1, RelGUID_Class0Class1, 0,
keyList
'add to relationship using relationshipID
keyList.Clear
Set testList = Nothing
key.ObjectID = Class1Obj3
keyList.Add key
key.ObjectID = Class1Obj4
keyList.Add key
Repository.AddManyToCollection DESTINATION, Class0Obj2, "", RelID_Class0Class1,
keyList
' add to origin relationship
keyList.Clear
Set testList = Nothing
key.ObjectID = Class0Obj3
keyList.Add key
Repository.AddManyToCollection ORIGIN, Class1Obj5, RelGUID_Class0Class1, 0,
keyList
Exit Sub
End Sub