Codejock Developer Community : Setting the SortPriority http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 16 May 2026 00:36:20 +0000 Sun, 19 Nov 2006 14:59:21 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=5534 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Setting the SortPriority : In order to have all newly added...]]> http://forum.codejock.com/forum_posts.asp?TID=5534&PID=17450&title=setting-the-sortpriority#17450 Author: Fossil
Subject: 5534
Posted: 19 November 2006 at 2:59pm

In order to have all newly added rows to be gaurenteed on top of thereport control I have created a workaround.  First of all I addeda new column called NEWRECORD and turned its visibility to False. Then turned AutoColumnSorting to false on the control and added thefollowing code to my form.

Private bDrag as Boolean

Private Sub OOS_ReportControl_ColumnOrderChanged()

    bDrag = True
   
End Sub

Private Sub ReportControl_MouseUp(Button As Integer, Shift As Integer, x As Long, y As Long)
   
    Dim Column As ReportColumn

    If Not bDrag Then
        Select Case Me.ReportControl.HitTest(x, y).ht
            Case xtpHitTestHeader
               Set Column = Me.ReportControl.HitTest(x, y).Column
                If Not Column Is Nothing Then
                   If Column.Sortable Then
                       Column.SortAscending = Not Column.SortAscending
                       Me.ReportControl.SortOrder.DeleteAll
                       Me.ReportControl.SortOrder.AddMe.ReportControl.Columns.Find(COLUMN_NEWRECORD)
                       Me.ReportControl.SortOrder.Add Column
                       Me.ReportControl.Populate
                    End If
                End If
            Case xtpHitTestGroupBox
               Set Column = Me.ReportControl.HitTest(x, y).Column
                If Not Column Is Nothing Then
                   Column.SortAscending = Not Column.SortAscending
                   Me.ReportControl.Populate
                End If
        End Select
    End If
   
    bDrag = False
   
    Set Column = Nothing

End Sub
]]> Sun, 19 Nov 2006 14:59:21 +0000 http://forum.codejock.com/forum_posts.asp?TID=5534&PID=17450&title=setting-the-sortpriority#17450 <![CDATA[Setting the SortPriority : Why not use 2 groups - one for...]]> http://forum.codejock.com/forum_posts.asp?TID=5534&PID=17374&title=setting-the-sortpriority#17374 Author: LeeHayton
Subject: 5534
Posted: 16 November 2006 at 10:59am

Why not use 2 groups - one for the new records and on for the existing - and have the new group first.
Then you can sort within the groups any way you like.
]]> Thu, 16 Nov 2006 10:59:59 +0000 http://forum.codejock.com/forum_posts.asp?TID=5534&PID=17374&title=setting-the-sortpriority#17374 <![CDATA[Setting the SortPriority : We are encountering an issue where...]]> http://forum.codejock.com/forum_posts.asp?TID=5534&PID=17355&title=setting-the-sortpriority#17355 Author: LittleJK
Subject: 5534
Posted: 15 November 2006 at 6:53pm

We are encountering an issue where we are trying set the sortPriority for all our existing records to be all the same say 1 while any new record will have the sortPriority to 0. The desired result would be that the new record(s) will  always on top, which when changing the sort by columns the new record(s) will be on top while anything below will be re-sorted based on the column that is sorted.

thanks ]]> Wed, 15 Nov 2006 18:53:58 +0000 http://forum.codejock.com/forum_posts.asp?TID=5534&PID=17355&title=setting-the-sortpriority#17355