local lcUniqueTableName, lcGroupBy, i, lnFields >>lcUniqueTableName=sys(2015) && could not remember this sys >>select FreeTable >>copy structure to (m.lcUniqueTableName) >>select (m.lcUniqueTableName) >>append from FreeTable >>append from DBCTable >>lcGroupBy="" >>lnFields=fcount() >>for i=1 to m.lnFields >> lcGroupBy=m.lcGroupBy+field(m.i)+iif(m.i=m.lnFields,'',',') >>endif >> >>select *, count(*) as cntDups from (m.lcUniqueTableName) ; >> group by &lcGroupBy ; >> having cntDups>=2 ; >> into cursor curDups >> >>select *, count(*) as cntUnique from (m.lcUniqueTableName) ; >> group by &lcGroupBy ; >> having cntUnique=1 ; >> into cursor curUnique >> >>use in select(m.lcUniqueTableName) >>delete file (m.lcUniqueTableName+".*") >>>>