Using the document found at https://revdevx.com/2015/09/26/sorting-in-edittables/

I would think that the following code would work correctly. It Sorts but the shiftkey bit does not change the sort order

Declare Function Get_Property

Declare Subroutine Exec_Method

Equ NULL$ To ""



ColRow = Get_Property(ctrlEntId,"NOTIFYPOS")

row = ColRow<2> ; col = ColRow<1>

sortOptions = NULL$

sortCriteria = NULL$ ; sortCriteria<1,1,1> = col

* change sort order if shift key is pressed

If ShiftKey Then sortCriteria<1,1,2> = 1



Call Exec_Method( CtrlEntID, "SORT", SortCriteria, SortOptions )



return 1

actually this line

If ShiftKey Then sortCriteria<1,1,2> = 1

should be ..

If ShiftKey Then sortCriteria<1,2,1> = 1

But even at that … the little arrow changes direction but the data doesn't change

Can someone please try this and let me know where I went wrong. I doubt that the article

is wrong … Carl doesn't make mistakes. He leaves that for me :)

Ha - if only that were true :)

Are you wanting to toggle the sort order or force it to Ascending Left?

Setting <0,2> always sets a specific order, so if you're setting it to "1" you will always sort "Ascending Left" - it won't "toggle" to "Descending Left" instead automatically.

You can "toggle" if you use the COLHEADERSORTINGMODE property, but that doesn't use a shift key, it just works on column header clicks/dblclks

What is it that you actually need to do?

Cheers

Carl Pates

so what the original code did was (this is also for the send_message topic) get the row/column that was clicked (notifyPos does this nicely) then sort the table either descending (dclick) or ascending (shift dclick). SO I am trying to duplicate this with the code. But when I use the code above it does not change sort order. It does the first sort (dclick) but ignores the second sort EXCEPT the little sort arrows change.

so what the original code did was (this is also for the send_message topic) get the row/column that was clicked (notifyPos does this nicely) then sort the table either descending (dclick) or ascending (shift dclick). SO I am trying to duplicate this with the code. But when I use the code above it does not change sort order. It does the first sort (dclick) but ignores the second sort EXCEPT the little sort arrows change.

Carl, i have sent you a copy of the original code so you can see what I am trying to achieve ..

Hi Dave,

Using the CellDblCk event something like this should do what you need:

   // Is it the col header row?

   if ( rowNum == 0 ) then



      // Is it a data column?

      if ( colNum > 0 ) then

         

         sortCrit = ""

         sortCrit<0,1> = colNum

         sortCrit<0,2> = ( if shiftKey then 1 else 0 )



         call exec_Method( ctrlEntID, "SORT", sortCrit, 0 )

         

      end

   end

Carl Pates

I think it was this line that was missing from mine and I can't find it mentioned in your article ..

call exec_Method( ctrlEntID, "SORT", sortCrit, 0 )

Thanks a lot ..

Hi Dave,

Its documented in the section titled The Sort Method, but there's no code example as such.

Cheers

Carl Pates

thanks again .. sorry i took so much of your time.

Not a problem, but you might owe me a JD when I see you again :)

Carl Pates

:smile: Always …

View this thread on the Works forum...