Aktualisieren des Status ausgewählter Testfälle im Testlabor

Question

Ich versuche, einen Testfallstatus mithilfe von VBScript für einen konkreten ausgewählten Testfall zu aktualisieren, kann jedoch die ausgewählten Zeilen (markierte Testfälle) nicht identifizieren.

Es gibt Funktionen in QC wie „Export ausgewählt“ oder „Bericht ausgewählt“ ... was bedeutet es möglich ist, ausgewählte Elemente zu identifizieren ...

Kann mir jemand helfen, wie in VBA oder VBS zu identifizieren, die ausgewählte Artikel in QC und aktualisieren den Status nur für sie?

Hier ist das Fragment von Code, wo ich in gestapelt bin:

kann

Sub change_status() 
    'code with connections etc 

    'start iterating through all test cases 
    For Each TestCase In TestSetTestsList 
     'identify the test case was selected/highlighted 
     If TestCase.Field("selected") = True Then 
      TestCase.Field("TS_STATUS") = "passed" '"failed" etc 
      TestCase.Post 
      TestCase.Refresh 
     End If 
    Next 

    MsgBox ("The status successfully updated for all selected test cases") 
End Sub 

Das beigefügte Bild helfen Sie verstehen, was ich mit „ausgewählten Testfall“ oder „ausgewählte Element“ bedeuten.

Answer 1

Und hier ist die Lösung, die ich gefunden:

Function TestSet_CanRemoveTests(Tests) 

result = msgbox ("Would you like to update the status?", vbYesNo, "Update Status") 
Select Case result 
Case vbYes 
val = "Passed = 1 ; No Run = 2 ; Blocked = 3 ; Failed = 4; Not Delivered = 5; N/A = 6" 
title = "Choose status" 
myValue = InputBox(val, title) 
     If myValue="1" Then 
     stts = "Passed" 
     ElseIf myValue="2" Then 
     stts = "No Run" 
     ElseIf myValue="3" Then 
     stts = "Blocked" 
     BugID = inputbox ("Please insert a Defect ID you would like to link with:", "Defect ID") 
       Select case BugID 
        case false 
        TestSet_CanRemoveTests = false 
        Exit Function 
       End Select 
     ElseIf myValue="4" Then 
     stts = "Failed" 
     ElseIf myValue="5" Then 
     stts = "Not Delivered" 
     ElseIf myValue="6" Then 
     stts = "N/A" 
     ElseIf myValue = false then 
     TestSet_CanRemoveTests = false 
     Exit Function 
     End If 


For Each TestCase in Tests 
Set MyTest = TsTestFactory.Item(TestCase) 'without TDConnection 

If myValue = "3" then 
Set objBugLinkFac = MyTest.BugLinkFactory 
Set objLink = objBugLinkFac.AddItem(BugID) 

objLink.LinkType = "Related" 
objLink.Post 

MyTest.Field("TC_STATUS") = stts 
MyTest.Post 

Set objLink = Nothing 
Set objBugLinkFac = Nothing 

Else: 
MyTest.Field("TC_STATUS") = stts 
MyTest.Post 
End If 

Set MyTest = Nothing 
t = t + 1 
Next 

msgbox("Done! Total number of affected tests is - " & t) 
TestSet_CanRemoveTests = false 

Case vbNo 
TestSet_CanRemoveTests = DefaultRes 
End Select 
'On Error GoTo 0 
End Function