How to Use Filter method to filter the results (Bug Factory)

Connect to Bug Factory object using OTA API

Sub BugFilter()

Dim BugFact As BugFactory

Dim BugFilter As TDFilter

Dim BugList As list

Dim theBug As Bug

Dim i%, msg$

'Get the bug factory filter

'tdc is the global TDConnection object.

Set BugFact = tdc.BugFactory

Set BugFilter = BugFact.Filter

'Set the filter values

BugFilter.Filter("BG_STATUS") = "Closed"

BugFilter.Order("BG_PRIORITY") = 1

MsgBox BugFilter.Text

'Create a list of defects from the filter

' and show a few of them

Set BugList = BugFilter.NewList

msg = "Number of defects = " & BugList.Count & Chr(13)

For Each theBug In BugList

msg = msg & theBug.ID & ", " & theBug.Summary & ", " _

& theBug.Status & ", " & theBug.Priority & Chr(13)

i = i + 1

If i > 10 Then Exit For

Next

MsgBox msg

End Sub