• Home
 · 
• Custom Controls/Forms/Menus
 · 
• This routine automatically sorts ListView controls in asc or dsc order when a column header is clic

This routine automatically sorts ListView controls in asc or dsc order when a column header is clic

This routine automatically sorts ListView controls in asc or dsc order when a column header is clicked. ListView control should be in report

Rate This routine automatically sorts ListView controls in asc or dsc order when a column header is clic

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Follow these simple steps and use the included code:

1. Include a ListView control(s) in your form(s) and set
   the ListViews View property to 3 - lvwReport.



2. Place the following code in the ListView controls 
   ColumnClick event:


	lvSortByColumn ListView1, ColumnHeader


   NOTE: replace ListView1 with the name of your
   ListView control.



3. Place the following code in a module:


Public Sub lvSortByColumn(theLV As ListView, theCol As MSComctlLib.ColumnHeader)

  Select Case theCol.Tag
  
    Case "Asc"
    theLV.SortOrder = lvwDescending
    theLV.SortKey = theCol.Index - 1
    theCol.Tag = "Dsc"
  
    Case "Dsc"
    theLV.SortOrder = lvwAscending
    theLV.SortKey = theCol.Index - 1
    theCol.Tag = "Asc"

    Case Else
    theLV.SortOrder = lvwAscending
    theLV.SortKey = theCol.Index - 1
    theCol.Tag = "Asc"
    
  End Select

End Sub



4. Finished!


When any column header is clicked, the contents
of the ListView control will be sorted by that
column in ascending order. If the same column is 
clicked a second time, it is resorted by that
column in descending order.


Have Fun!