>
>Here is it: (VFP7)
>

>select companynam, div_name ;
>    from company left join division ;
>    on company.cKeyID=division.cKeyID ;
>    into cursor curFinal readwrite
>
>select min(div_name) as div_name, companynam ;
>from curFinal group by 2 ;
>into cursor curTemp nofilter
>index on companynam+div_name tag Temp
>
>select curFinal
>set relation to companynam+div_name into curTemp
>replace companynam with '' for !found('curTemp')

>
>Or lots of other variations.
>
>Thanks Cetin, Renouir, Sergey for support :)

Doesn't it remind you a code for removing duplicates?