各位好，小弟有个对比用的程序，但是运行时间偏长，要5分钟。 是关于数据对比，打上删除标记的。
A表，两个字段，num和time （数据量是一千3百多万）
B表，一个字段，num       （数据量是十五万）
所有字段均为字符型。
程序如下：
--------------------------------------------------
close all
set talk off
set safe off
? time()    &&运程开始时间

sele 1
use A
reca all
index on num to a
set index to a

sele 2
use B
recall all
index on num to b
set index to b

go top
do whil not eof()
p1=alltr(num)
  sele 1
  seek p1
 if found()
  dele
  sele 2
  dele
 endif
 
  sele 2
  skip
  enddo
close all
  set talk on
  set safe on
  ? time()    &&运行结束时间
------------------------------------------------------------

小弟想问，现在程序是不是最优化了？ 最快速了？ 还可以优化和提速吗？ 万分感谢，盼回复。谢谢。

表A中，num字段全是手机号码共11位如“13812345678”，time字段是年月日组成的8位数字如“20150101”
表B中，num字段全是手机号码共11位如“13812345678”

这样子， 但是我这个基本上每天用到两次，都是简单对比，打上删除标记， 其实目的，就是剔除 B表中与A表相同的记录。
因为VFP都是初学，所以只能做到写这个简单程序， 路还是很长啊。

对的，确实是这样，我也试过用这语句运行，但是运行时间过去十几分钟，进度条未动呢，所以放弃了。