Jan,

Here's one way of achieving what you want although it shows the Animals in alphabetical order. Still, the principle is there:

select 0
use Animals
*
select ;
* ;
from ;
Animals ;
into ;
table 'TempCurs' ;
order by ;
Animal
*
if _tally > 0
lcAnimal = Animal
skip
*
scan while .t.
*
if Animal = lcAnimal
replace Animal with ''
*
else
lcAnimal = Animal
*
endif
*
endscan
*
browse
*
endif
*
close databases all
*
return

I've assumed that the table your animal details are in is called Animals, I've used a browse just to show what it look like and I've use 'TempCurs' as the temporary table name.

Hope this solves your problem,

Regards,

MarkA