VB.NET : Sorting Dates in DataGridView

[stevelaw]

Hi,

I'm using VB 2005 and I have a DataGridView that I am populating manually.

e.g.

  Private Sub List_Dates()
 
    dgvDates.Rows.Clear()
 
    Dim c As Integer
    Dim Row() As String = New String(3) {}
 
     For c = 0 To WorkstationCount
      Row(0) = Workstations(c)
      Row(1) = FormatDateTime(DatesAssign(c), DateFormat.ShortDate)
      Row(2) = FormatDateTime(DatesAgent(c), DateFormat.ShortDate)
      dgvDates.Rows.Add(Row)
    Next
 
  End Sub

The context is that I'm reading in a set of files (one for each workstation) with various data in that I am parsing, including two dates, then saving this data in various arrays before putting in DataGridViews to display.

Anyway, everything works fine except that when I click on the column header to sort the two dates columns, they sort as a string, not as a date.

I've seen various very similar questions, but none of them answer the question for me (I suppose primarily because I am not binding a data source).

What can I do to get these columns to sort as a date?

Thanks,

Steve

[stevelaw]

Okay, never mind. Pretty simple solution in the end.

Private Sub dgvDates_SortCompare(ByVal sender As Object, ByVal e As DataGridViewSortCompareEventArgs) Handles dgvDates.SortCompare
 
    If e.Column.Index = 0 Then
      e.SortResult = System.String.Compare(e.CellValue1, e.CellValue2)
    Else
      e.SortResult = System.DateTime.Compare(e.CellValue1, e.CellValue2)
    End If
 
    e.Handled = True
 
End Sub

[skalluparambil]

Stevelaw,

You are simply great. I Have been hunting this ans since 4 days. I was going to implement icomparable and all those stuff.
You have made it so simple.

i registered with the scripts just to leave a thankyou note to you.

Happy thanksgiving. You made my day!

Okay, never mind. Pretty simple solution in the end.

Private Sub dgvDates_SortCompare(ByVal sender As Object, ByVal e As DataGridViewSortCompareEventArgs) Handles dgvDates.SortCompare

If e.Column.Index = 0 Then
e.SortResult = System.String.Compare(e.CellValue1, e.CellValue2)
Else
e.SortResult = System.DateTime.Compare(e.CellValue1, e.CellValue2)
End If

e.Handled = True

End Sub