Skip to main content

ListView - Sorting by Number or Date

A lot of people are faced with the challenge of sorting a ListView list by numeric value or date. If you do a search, you'll see all kinds of API re-writes and special functions to make it work.

Of course, DotNet has its own way of doing it which looks equally troubling.

The easiest workaround is simply to change your date format to be YMD but that isn't typically a good solution for US companies or applications that show the long date.

But there's an easier way. It was briefly noted here but I wanted to give VFP developers a very straightfoward example.

Short Answer: Create a new column on the list view with a width of zero. Populate the list with the DTOS or sortable version of the value and then instead of setting the SortKey to the displayed column - set it to the OTHER column instead.

This works like a charm.

Some code (if you will)

In the ColumnClick method of the ListView, put in
LPARAMETER columnheader
IF columnheader.Text = "Date"
THIS.SortKey = columnheader.Index
ELSE
THIS.SortKey = columnheader.index-1
ENDIF

WITH THISFORM.ListView
.ColumnHeaders.Add(,,"FileName",100)
.ColumnHeaders.Add(,,"Date",60)
.ColumnHeaders.Add(,,"RealDate",0)

lo = .ListItems.Add(,"NewFile","New File")
lo.SubItems(1) = DTOC(DATE())
lo.SubItems(2) = DTOS(DATE())
lo = .ListItems.Add(,"OlderFile","Old File")
lo.SubItems(1) = DTOC(GOMONTH(DATE(),-5))
lo.SubItems(2) = DTOS(GOMONTH(DATE(),-5))

lo = .ListItems.Add(,"ROlderFile","Really Old File")
lo.SubItems(1) = DTOC(GOMONTH(DATE(),-12))
lo.SubItems(2) = DTOS(GOMONTH(DATE(),-12))
.View = 3
.Sorted = .T.
ENDWITH

Now a few things to note:
1. ListViews can only show TEXT in their columns. That's why I'm using DTOC which makes it appear in the standard format but then DTOS to put it into a useful SORTABLE format

2. The ColumnClick method shown here is really basic. If you wanted to add support for ascending and descending orders, it might look like this:

Procedure ColumnClick
LPARAMETERS ColumnHeader

IF THIS.sortOrder = 0
THIS.SortOrder = 1 && Descending
ELSE
THIS.SortOrder = 0 && Ascending
ENDIF
IF columnHeader.Text = "Date"
THIS.SortKey = ColumnHeader.Index
ELSE
THIS.SortKey = ColumnHeader.Index - 1
ENDIF

Now if you need to do this for a number, instead of using DTOC and DTOS , just pad the numbers with zeroes.

Comments

Popular posts from this blog

Attending Southwest Fox 2019 could change your life - Find out how

Southwest Fox is coming up in October and as I do every year, I spoke with the organizers Rick , Doug and Tamar on the FoxShow. Deadlines for Southwest Fox: Super-saver price (before July 1): $695 Early-bird price (before August 1): $770 Regular price (August 1 and later): $820 This year, I took a different approach with separate shows for each organizer but the main message is still the same : July 1st is their Go/No-Go date. Conferences don't talk about this very often. I don't think developers really question if Apple will hold their WWDC in June or Microsoft will hold their Build conference - but that's because those conferences are vendor-led. Southwest Fox is a community-driven conference - it's not driven by a company with an agenda. Listen to the interviews and you can hear how important each of the organizers feel the live connection between speakers and among attendees.

Well, that explains CodePlex...

In a move that will be sure to anger open source (or rather anti-paid software, anti-Microsoft open source)  zealots, Microsoft is planning to buy GitHub . A year ago, I mused about why Microsoft would shut down CodePlex and how the world needs competing source code repositories to be strong. I'm not the only one per this Slashdot article  : "...   people have warned about GitHub becoming as large as it did as problematic because it concentrates too much of the power to make or break the open source world in a single entity, moreso because there were valid questions about GitHubs financial viability...." - Jacques Mattheij I will be interested in seeing this play out - whether developers jump ship or not. Have all the efforts Microsoft has made in pushing towards open source be seen as genuine or will all the zealots jump ship or maybe even attack? Microsoft's comment about why they shut down CodePlex referred to how spammers were using CodePlex. Well, GitHub

FoxInCloud Stats

FoxInCloud sent this link a while back about their statistics regarding visits to their site: http://foxincloud.com/blog/2017/12/27/VFP-community-lessons-from-foxincloud-site.html What's interesting here is the breakdown of people. Yes, I think it's understandable that the Fox community is getting older. Another factor is the growth of the mobile and web environments taking over development. These environments really do push people towards the newer non-SQL or free SQL/hosted environments but more towards hosted storage options like Amazon and Google. A tool like FoxInCloud that helps MOVE existing applications to the cloud inherently competes with those environments. But FoxInCloud also allows developers to extend their application further by giving them a starting point using Javascript and the basic CSS (such as Bootstrap). If you're not rebuilding your application from scratch, it's certainly a great step forward. FoxPro VFP