Repository.Xfmea.GetAllXfmeaCauses Method: Difference between revisions
Jump to navigation
Jump to search
Kate Racaza (talk | contribs) mNo edit summary |
Kate Racaza (talk | contribs) No edit summary |
||
| Line 2: | Line 2: | ||
<onlyinclude>Gets a list of causes associated with a failure. Returns an '''[[XfmeaCause Class|XfmeaCause]]''' object | <onlyinclude>Gets a list of causes associated with a failure. Returns an '''[[XfmeaCause Class|XfmeaCause]]''' object that represents the causes.</onlyinclude> | ||
== Syntax == | == Syntax == | ||
| Line 16: | Line 16: | ||
'''VBA|VB.NET''' | '''VBA|VB.NET''' | ||
{{APIComment|' | {{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}} | ||
{{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository | {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository | ||
MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}}) | |||
{{APIComment|'Get a list of all causes associated with failure #1 in project #1.}} | {{APIComment|'Get a list of all causes associated with failure #1 in project #1.}} | ||
{{APIPrefix|Dim}} ListofCauses() {{APIPrefix|As}} XfmeaCause | |||
MyRepository.Project.SetCurrentProject (1) | |||
ListofCauses = MyRepository.Xfmea.GetAllXfmeaCauses(1) | |||
{{APIComment|'Output sample: Display the number of | {{APIComment|'Output sample: Display the number of causes.}} | ||
{{APIPrefix|Dim}} NumberofElements {{APIPrefix|As}} Integer | |||
NumberofElements = UBound(ListofCauses) - LBound(ListofCauses) + 1 | |||
MsgBox (NumberofElements) | |||
Revision as of 17:52, 8 April 2016
 |
Member of: SynthesisAPI.Repository
Gets a list of causes associated with a failure. Returns an XfmeaCause object that represents the causes.
Syntax
.Xfmea.GetAllXfmeaCauses(FailureID)
Parameters
FailureID
- Required. Integer. The record ID of the failure.
Example
This example assumes that system hierarchy items with failures exist in the first available project of a repository.
VBA|VB.NET
'Declare a new Repository object and connect to a Synthesis repository. Dim MyRepository As New Repository MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10") 'Get a list of all causes associated with failure #1 in project #1. Dim ListofCauses() As XfmeaCause MyRepository.Project.SetCurrentProject (1) ListofCauses = MyRepository.Xfmea.GetAllXfmeaCauses(1) 'Output sample: Display the number of causes. Dim NumberofElements As Integer NumberofElements = UBound(ListofCauses) - LBound(ListofCauses) + 1 MsgBox (NumberofElements)