>>>I'm trying to get a ListBox to sort on the 2nd column (TypeDesc), but it just always sorts on the 1st column (TypeCode). What do I need to do?
>>>

>>>	WITH .Container1.lstAvailable
>>>		SELECT AvailableServiceTypes
>>>		SCAN FOR ! DELETED()
>>>			.AddItem( TypeCode )
>>>			.List[ .NewIndex, 2 ] = TypeDesc
>>>		ENDSCAN
>>>		.Sorted = .T.
>>>	ENDWITH
>>>

>>
>>List and Combos ALWAYS sort by first column.
>>So instead of Sorted = .t. use Sorted = .f. but fill Items from Sorted table/cursor.
>>BTW why not use other RowSourceType like SQL Select?
>>The this code will be:
>>

>>WITH .Container1.lstAvailable
>>     .RowSourceType = 3
>>     .RowSource = [SELECT TypeCode, TypeDesc FROM AvailableServiceTypes ORDER BY TypeDesc INTO CURSOR lstAvailableCrs]
>>     .Requery()
>>ENDWITH
>>

>>And if your SET DELETED is ON you will see no deleted records :-)
>
>It's a MoverBox control and I need to be able to move items back and forth. How can I maintain order on the TypeDesc as I move items between the lists?



O!
Then:

SELECT TypeCode, TypeDesc FROM AvailableServiceTypes ORDER BY TypeDesc INTO CURSOR lstAvailableCrs
WITH .Container1.lstAvailable
      SELECT lstAvailableCrs
      SCAN
         .AddItem( TypeCode )
         .List[ .NewIndex, 2 ] = TypeDesc
      ENDSCAN
ENDWITH