程式設計

思路，生成一個新的資料庫，從舊的資料庫中提取資料，如果記錄在新資料庫中存在，就不復制，如果不存在，就將記錄複製到新資料庫中！這樣的話就沒重複的資料了

假定原資料是儲存在sj.dbf中，則程式如下：

use sj

copy to temp &&將原資料庫內容複製到臨時資料庫中

zap &&清空原資料庫

use temp

jlh=1

stro recc() to jls &&將原記錄條數儲存到變數中

do whil jlh

go jlh

stor code to lsbl &&將code欄位的值儲存在變數中

use sj

loca for code=lsbl

if found()

else

clos data

use temp

copy to lswj for recn()=jlh &&將沒有找到的記錄可在在臨時檔案中

use sj

appe from lswj &&從臨時檔案中追加記錄

clos data

endi

jlh=jlh+1

use tmep

endd

clos data

再重新開啟原資料庫後，你會發現已經沒重複的記錄了