在QC里，搜索DefectID

'Search DefectID 
'Parameters: Detectedby, priority, severity, status
Function SearchDefectID(sDetectedBy, sPriority, sSeverity, sStatus, sDetectedDate)
    Dim BugFact
    Dim BugFilter
    Dim bugList
    Dim theBug, msg
    Dim i As Integer, cID


    Set BugFact = tdQC.BugFactory
    Set BugFilter = BugFact.Filter


    BugFilter.Filter("BG_DETECTED_BY") = sDetectedBy
    BugFilter.Filter("BG_PRIORITY") = sPriority
    BugFilter.Filter("BG_SEVERITY") = sSeverity
    If sStatus <> "" Then BugFilter.Filter("BG_STATUS") = sStatus
    If sDetectedDate <> "" Then BugFilter.Filter("BG_DETECTION_DATE") = sDetectedDate
    BugFilter.Order("BG_BUG_ID") = 0


    i = 1
    Set bugList = BugFilter.NewList


    For Each theBug In bugList
         If i < bugList.Count Then
            i = i + 1
        Else
            cID = theBug.ID
        End If
    Next
 
 'return DefectID
 SearchDefectID = cID
Set BugFilter = Nothing


End Function