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