如果A,B两个表都有共同字段 'zd' ,而且记录值不重复。则
close all
sele 1
use A excl
sele 2
use B
go top
do while.not.eof()
czd=alltrim(zd)
sele 1
delete for alltrim(zd)==czd
sele 2
skip
enddo
sele 1
pack
close all
return
&& 注:可以将A表中与B表相同的记录删除。删除的是A表中的记录。
[
本帖最后由 qingfameng 于 2010-2-24 00:19 编辑 ]