Replacing/Removing Objects from a Collection
This section shows example code of replacing and removing objects from a collection.
'//////////////////////////////////////////////////////////////////////////////////
'
' TestReplaceCollection
'
'//////////////////////////////////////////////////////////////////////////////////
Sub TestReplaceCollection()
Dim errorExpected As Boolean
Dim keyList As New MetaInfoKeyList
Dim testList As MetaInfoKeyList
Dim key As New MetaInfoKey
Dim info As MetaInfoKey
DisplayHeadingLine "MetaActive::ReplaceCollection"
key.ObjectID = Class1Obj1
keyList.Add key
key.ObjectID = Class1Obj2
keyList.Add key
key.ObjectID = Class1Obj3
keyList.Add key
key.ObjectID = Class1Obj4
keyList.Add key
Repository.ReplaceCollection DESTINATION, Class0Obj5, "", RelID_Class0Class1, _
keyList
Exit Sub
End Sub
'/////////////////////////////////////////////////////////////////////////////////
'
' RemoveManyFromCollection
'
'/////////////////////////////////////////////////////////////////////////////////
Sub RemoveManyFromCollection()
Dim keyList As New MetaInfoKeyList
Dim testList As New MetaInfoKeyList
Dim info As MetaInfoKey
Dim key As New MetaInfoKey
key.ObjectID = Class2Obj7
keyList.Add key
key.ObjectID = Class2Obj8
keyList.Add key
Repository.RemoveManyFromCollection DESTINATION, Class1Obj5, "",
RelID_Class1Class2, _
keyList, 0
Exit Sub
End Sub