Description :

Some Report SQL's will bring duplicate rows depending on the outer joins. Application may need only first row for the report & 4 rows may be duplicates. This coding is applied in a place where DISTINCT is not applicable.

Sample Code:

    Dim CurCase As Double

    Do While True
      Set Fetch = InputAdapter.Fetch()
    If Fetch is Nothing Then
    Exit Function
    End If

     If First_Time Then
       CurCase = Fetch.GetValue("CaseID")
       PrevCase = Fetch.GetValue("CaseID")
       First_Time = False
     Exit Function
     End If
        CurCase = Fetch.GetValue("CaseID")
     If CurCase <> PrevCase Then
         PrevCase = CurCase
     Exit Function
     End If
  Loop

  End Function