>select recno() as rcno from myTable ; > where .t. ; > having cnt(*) = 1 ; > group by author, title ; > into cursor noDup >use dbf("noDup") in 0 again alias noDuplicate >use in "noDup" >select noDuplicate >index on rcno tag rcno >select myTable >browse for !seek(recno(),"noDuplicate","rcno") >>Also there is a utility in files section called "dupcheck.zip"
select author, title from myTable ; where .t. ; having cnt(*) = 1 ; group by author, title ; into cursor noDup use dbf("noDup") in 0 again alias noDuplicate use in "noDup" select noDuplicate index on author+title tag main select myTable1 browse for !seek(author+title,"noDuplicate","main") * Or if dups are less select author, title from myTable ; where .t. ; having cnt(*) > 1 ; group by author, title ; into cursor Dups use dbf("Dups") in 0 again alias Duplicate use in "Dups" select Duplicate index on author+title tag main select myTable1 browse for seek(author+title,"Duplicate","main")cetin