View source for TeamInfo.SetCrewIDs Method

{{DISPLAYTITLE:TeamInfo.SetCrewIDs Method}}{{Template:API}}{{Template:APIBreadcrumb|.[[TeamInfo_Class|TeamInfo]]}}


<onlyinclude>Sets the IDs of the crews included in the team.</onlyinclude>


'''Remarks''': Designed for VB6/VBA users, .NET users should use CrewIDs property instead.

== Syntax ==
 '''.SetCrewIDs'''({{APIPrefix|ByRef}} ''arr()'')

===Parameters===
''arr()''
:Required as integer. An array of the crew IDs.

== Example ==
 '''VBA'''
 
 {{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}}
   {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
   MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr19"}})
   
 {{APIComment|'Get crew #1 from project #1.}}
   {{APIPrefix|Dim}} MyCrew {{APIPrefix|As}} cCrew
   MyRepository.Project.SetCurrentProject(1)
   {{APIPrefix|Set}} MyCrew = MyRepository.Crew.GetCrew(1)
 
 {{APIComment|'Add code to get an existing team.}}
  {{APIPrefix|Dim}} aTeam {{APIPrefix|As}} TeamInfo
 {{APIComment|...}}
 
 {{APIComment|'Get the IDs of the crews assigned to the team.}}
  {{APIPrefix|Dim}} myarray() {{APIPrefix|As integer}}
  {{APIPrefix|Call}} aTeam.GetCrewIDs(myarray)

 {{APIComment|'Set the crew ID for t}}
 
 {{APIComment|'Sample output.}}
  {{APIPrefix|Dim}} i {{APIPrefix|As Integer}}
  {{APIPrefix|Dim}} upper {{APIPrefix|As Integer}}
  {{APIPrefix|Dim}} lower {{APIPrefix|As Integer}}
 
  lower = {{APIPrefix|LBound}}(myarray)
  upper = {{APIPrefix|UBound}}(myarray)
 
  {{APIPrefix|For}} i = lower {{APIPrefix|To}} upper
   MsgBox "Crew ID = " & myarray(i)
  {{APIPrefix|Next}} i