Repository.Crew.GetCrew: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
No edit summary
No edit summary
Line 27: Line 27:
   {{APIPrefix|Set}} MyCrew = MyRepository.Crew.GetCrew(1)
   {{APIPrefix|Set}} MyCrew = MyRepository.Crew.GetCrew(1)
   
   
  {{APIComment|'Output sample:}}
  {{APIComment|'Output sample: Display the name and ID of the crew.}}
   {{APIPrefix|Dim}} CrewName {{APIPrefix|As}} String
   {{APIPrefix|Dim}} CrewName {{APIPrefix|As}} String
   {{APIPrefix|Dim}} CrewID {{APIPrefix|As}} Integer
   {{APIPrefix|Dim}} CrewID {{APIPrefix|As}} Integer
Line 44: Line 44:
   MyCrew = MyRepository.Crew.GetCrew(1)
   MyCrew = MyRepository.Crew.GetCrew(1)
   
   
  {{APIComment|'Output sample:}}
  {{APIComment|'Output sample: Display the name and ID of the crew.}}
   {{APIPrefix|Dim}} CrewName {{APIPrefix|As}} String
   {{APIPrefix|Dim}} CrewName {{APIPrefix|As}} String
   {{APIPrefix|Dim}} CrewID {{APIPrefix|As}} Integer
   {{APIPrefix|Dim}} CrewID {{APIPrefix|As}} Integer

Revision as of 22:58, 16 July 2015

APIWiki.png


Member of: SynthesisAPI10Repository

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

Syntax

object.Crew.GetCrew(ID)

where object is a variable that represents a Repository object.

Parameters

Name Description
IDborder="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse; text-align: left; cellborder"
Name Status Integer. The ID number of the crew to retrieve.


Example

This example assumes that a crew with ID#1 exists in a repository.

VBA

 Dim MyRepository As New Repository
 ...'Add code to connect to a Synthesis repository.   

 'Get crew #1 from project #1. 
 Dim MyCrew As cCrew
 MyRepository.Project.SetCurrentProject(1)
 Set MyCrew = MyRepository.Crew.GetCrew(1)

 'Output sample: Display the name and ID of the crew. 
 Dim CrewName As String
 Dim CrewID As Integer
 CrewName = MyCrew.Name
 CrewID = MyCrew.ID
 MsgBox ("You got " & CrewName & ", ID#" & CrewID)

VB.NET

 Dim MyRepository As New Repository
 ...'Add code to connect to a Synthesis repository.   

 'Get crew #1 from project #1. 
 Dim MyCrew As cCrew
 MyRepository.Project.SetCurrentProject(1)
 MyCrew = MyRepository.Crew.GetCrew(1)

 'Output sample: Display the name and ID of the crew. 
 Dim CrewName As String
 Dim CrewID As Integer
 CrewName = MyCrew.Name
 CrewID = MyCrew.ID
 MsgBox ("You got " & CrewName & ", ID#" & CrewID)