>Naomi,
>
>select testdup
>set order to CompMe
>go top
>*-- init to unequal to save cycles in loop
>lcCompMe = iif(testdup.CompMe=="!", "?", "!")
>scan
> if m.lcCompMe == testdup.CompMe
> delete while m.lcCompMe == testdup.CompMe
> endif
> lcCompMe = testdup.CompMe
>endscan
>
>should be enough, as the delete positions on the next "different".
>Not tested... just secondary brain thinking while driving
>
>regards
>
>thomas
Are you saying that you can drive and type at the same time? :)
Sorry, can not resist.
I haven't looked at the code today yet, will do at night.
If it's not broken, fix it until it is.
My Blog