Repository.Pool.GetPool

Gets the spare part pool with the designated ID number and returns it as a cPool object. Returns nothing if the spare part pool does not exist or is not in the current project.

Syntax
object.Pool.GetPool(ID)

where object is a variable that represents a Repository object.

Example
This example assumes that a spare part pool with ID#1 exists in a repository. VBA MyRepository Repository MyPool cPool MyRepository.Project.SetCurrentProject(1) MyPool = MyRepository.Pool.GetPool(1) PoolName String PoolID Integer PoolName = MyPool.Name PoolID = MyPool.ID MsgBox ( & PoolName &  & PoolID)

VB.NET MyRepository Repository MyPool cPool MyRepository.Project.SetCurrentProject(1) MyPool = MyRepository.Pool.GetPool(1) PoolName String PoolID Integer PoolName = MyPool.Name PoolID = MyPool.ID MsgBox ( & PoolName &  & PoolID)