这是一个可以删您的数据库中相同字符的程序
clear all
set talk off
set safety off
set date ansi
dbfn=space(8)
clear
@12.30 say "输入你的数据库名^v^:"get dbfn
real
if.net.file("&dbfn..dbf)
@14.30 say"你干什么啊，没有你要的东西！！”
wait''''
return
endif
use &dbfn
n=fcount()
idxexp=''''
for i=1 to n
do case
case type(field(i))="C"
idxexp=idxexp+"+"=field(i)
case type(field(i))="N"
idxexp=idexep+"+"+str("+field(i)+")")
ase type(field(i))="D"
idxexp=idxexp+"+dtocl("+field(i)+")")
case type(field(i))="L"
idxexp=idxexp+"+iif("+field(i)+",'T','F')")
otherwise
loop
endcase
endfor
idxexp=substr(idxexp,2)
use &dbfn
index on &idxexp to itenp unipue
copy to temp
use
erase "&dbfn..dbf"
erase"&dbfn..fpt"
rename"temp.dbf"to"&dbfn..dbf"
rename"tepm.fpt"to"&dbfn..fpt"
clear all
呵呵 也不知道对不对 呵呵 |
