HELP!! Delete duplicates from listview

[slsmithstone]

I have several listview boxes which are filled via a stored procedure that joins several tables. I do not want to retrieve this data using separate stored procedures because I don't want to make that many trips to the database.

As a result of the joins, some listviews contain duplicates. I need to be able to remove those duplicates in each listview box.

I tried searching the Internet for what I thought would be an easy item to find. I am coming up with Zip!! (or code that works at any rate).

Can someone give me a code example of how this would be done?

Any help will be greatly appreciated!

[Angelo88]

Try this.

Private Sub Command1_Click()
Dim i As Long, j As Long

    With ListView1
        For i = 1 To .ListItems.Count
            For j = .ListItems.Count To (i + 1) Step -1
                If .ListItems(j) = .ListItems(i) Then
                    .ListItems.Remove j
                End If
            Next
        Next
    End With

End Sub

[slsmithstone]

Try this.

Private Sub Command1_Click()
Dim i As Long, j As Long

    With ListView1
        For i = 1 To .ListItems.Count
            For j = .ListItems.Count To (i + 1) Step -1
                If .ListItems(j) = .ListItems(i) Then
                    .ListItems.Remove j
                End If
            Next
        Next
    End With

End Sub

Thank you so much, Angelo88. That solved the problem beautifully!!

[gupex]

... or look at DISTINCT in your SELECT

[slsmithstone]

Thanks for your response. I couldn't in this particular instance because I had many tables that were joined.

[gupex]

Suggest all you need is to put 'DISTINCT' after the first 'SELECT' ....

Greg