两个程序需用vf6.0,dbf格式数据库
（一）工商返库或是基本单位库自身排重语句（dbf格式）
（把程序和库放在一个的文件夹，把语句考到txt，存成prg格式，双击运行） 
单位名称排重程序 b代表单位名称，bz是自己加的字段 ，把成立日期变成方法是yyyymmdd设成一般的,考到文本中，再考回来.先进行字段去空 repl all b with alltrim(b),i电话号码和k行业码和h日期必须去空，所用字段最好都去空.
set safe off 
use 库名称 
sort on b to tmp 
zap 
appe from tmp 
go top 
tmpc=b 
skip 
do while !eof() 
if b=tmpc 
  skip -1 
  repl bz with '1' 
  skip 
  repl bz with '1' 
endif 
tmpc=b 
skip 
endd 
把生成的带1的考出去copy all to 重复 for bz='1'，删除后,dele all for bz='' pack，处理靠出去的，把考出区带1的中h项是空的删除dele all for h=' ' pack
基本单位库和工商库对比程序
sele 1 (基本单位返库) 
index on b to px1 
repl all bz with '1'（把所有bz置为1） 
sele 2 （工商返库） 
index on b to px2 
upda on b from a repl bz with a->bz (用基本单位返库去更新工商库的单位名称，如果重复工商返库中的bz变成1) 
(bz是自己建的字段汉文是标志的意思，b字段代表是单位名称）