>>>> WITH .Container1.lstAvailable >>>> SELECT AvailableServiceTypes >>>> SCAN FOR ! DELETED() >>>> .AddItem( TypeCode ) >>>> .List[ .NewIndex, 2 ] = TypeDesc >>>> ENDSCAN >>>> .Sorted = .T. >>>> ENDWITH >>>>>>>
>>>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 :-)
>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 >I have to rerun the SQL each time an item is moved?! Hmmm... I don't like that. Stupid that I can't sort the listbox on the 2nd column. I think I'll drop the TypeCode and just have a single column listbox.