• Home
 · 
• Miscellaneous
 · 
• Sort a flexgrid by date! Easy with no special coding! MSFlexGrid control does not support sorting b

Sort a flexgrid by date! Easy with no special coding! MSFlexGrid control does not support sorting b

Sort a flexgrid by date! Easy with no special coding! MSFlexGrid control does not support sorting by date.

API Declarations


Dim i, j As Integer 'For the FOR loops.




Rate Sort a flexgrid by date! Easy with no special coding! MSFlexGrid control does not support sorting b

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' Paste this code and declerations under a command button's click event, 
' form load event or anywhere!
' IMPORTANT: It is assumed that the date format is DD/MM/YYY and the column 
' containing the date is 0.

j = 1
For j = 1 To frmMain.FlexMain.Rows - 1
    'Get the different parts of the date.
    y = Right(frmMain.FlexMain.TextMatrix(j, 0), 4)
    M = Mid(frmMain.FlexMain.TextMatrix(j, 0), 4, 2)
    d = Left(frmMain.FlexMain.TextMatrix(j, 0), 2)
    'Join them as one number in this order: YYYYMMDD.
    Cap = y & M & d
    'Write the number to the flexgrid.
    frmMain.FlexMain.TextMatrix(j, 0) = Cap
Next j
'Set the column and sort the flexgrid in ascending order.
frmMain.FlexMain.Col = 0
frmMain.FlexMain.Sort = flexSortNumericAscending
i = 1
For i = 1 To frmMain.FlexMain.Rows - 1
    'Split the number into the different date parts.
    y = Left(frmMain.FlexMain.TextMatrix(i, 0), 4)
    M = Mid(frmMain.FlexMain.TextMatrix(i, 0), 5, 2)
    d = Right(frmMain.FlexMain.TextMatrix(i, 0), 2)
    'Join them and insert a "/" between the day, month and year.
    Cap = d & "/" & M & "/" & y
    'Write the new date to the flexgrid.
    frmMain.FlexMain.TextMatrix(i, 0) = Cap
Next i

' That's it!