>>
>>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?

Yes, it does. I haven't tested it, BTW :)