Need help in ListView

[akhileshbc]

Hi jose... Welcome to the forums...

One way is to query the database for selecting records which have the brgy code lesser than the one being searched. Then, display the records in a ListView control.

Second way is to loop through all the items in the first listview(which will be filled with the entire data) and add the low valued brgy code items to the second listview control.

Example:

Option Explicit
 
Private Sub Command1_Click()
    Dim i           As Long
    Dim lngSearch   As Long
    Dim lvwItem     As ListItem
        
    lngSearch = CLng(Text1.Text)    '~~~ Number to be searched
    
    For i = 1 To ListView1.ListItems.Count  '~~~ Loop through each item in the first ListView
        If CLng(ListView1.ListItems(i).Text) < lngSearch Then   '~~~ Check if the item is lesser than the number to be searched
            Set lvwItem = ListView2.ListItems.Add(, , ListView1.ListItems(i).Text)  '~~~ If so, add the contents to the second listview
            lvwItem.SubItems(1) = ListView1.ListItems(i).SubItems(1)
            lvwItem.SubItems(2) = ListView1.ListItems(i).SubItems(2)
            lvwItem.SubItems(3) = ListView1.ListItems(i).SubItems(3)
            lvwItem.SubItems(4) = ListView1.ListItems(i).SubItems(4)
            lvwItem.SubItems(5) = ListView1.ListItems(i).SubItems(5)
            Set lvwItem = Nothing
        End If
    Next
End Sub