嘿嘿

这两条命令不会比你上面那段代码更慢吧？

精简一下代码：

SET DELETED OFF
USE a.dbf ALIAS aa IN 0
USE b.dbf ALIAS bb IN 0
SELECT aa
RECALL ALL 
INDEX ON num TAG num
SELECT bb
RECALL ALL 
SET RELATION TO num INTO "aa"
SCAN
    IF FOUND("aa")
        DELETE IN "bb"
        DELETE IN "aa"
    ENDIF
ENDSCAN
SET RELATION TO
BROWSE
SELECT aa
BROWSE

就是这样，程序设计的问题。

你SELECT 语句慢的原因在 WHERE 中，我发现在WHERE 子句中，使用函数的响应时间，比不实用函数的时间要长很多，
我最近，在VFP上更新SQL2000表的时候，发现，

SELECT 表1  &&已经按编号做了索引的
SCAN
  BH=LTRIM(编号)
  XM=姓名
  SQL_STR='UPDATE SQL_TAB SET XM=?XM WHERE LTRIM(BH)=?BH
  SQLEXEC(句柄,SQL_STR)
ENDSCAN

上面的实用时间，比下面的长很多

SELECT 表1  &&已经按编号做了索引的
SCAN
  BH=LTRIM(编号)
  XM=姓名
  SQL_STR='UPDATE SQL_TAB SET XM=?XM WHERE BH=?BH
  SQLEXEC(句柄,SQL_STR)
ENDSCAN

不知道，各位高手，是不是也知道这个？
但我在SET XM=?XM，中，加函数，影响的时间，不多，SET XM=?XM

[ 本帖最后由 mywisdom88 于 2015-7-16 17:34 编辑 ]

用RECALL ALL也不合理，软件使用过程中删除了的记录，凭什么要把它恢复。

以下的代码只须对排序库扫描一遍，就可以挑出A、B库全部共有的记录（包括多条重复），可以大大减少磁盘访问次数。


close all
set talk off
set safe off
? time()    &&运程开始时间

sele 1
use A
append from B
sort to C on num
*这一步可能比较慢
use C
do while .not.eof()
p1=alltrim(num)
if .not.eof()
skip
endif
do while .not.eof()
aa=alltrim(num)
if p1=aa
skip-1
delete
skip
delete
else
exit
endif
if .not.eof()
skip
endif
enddo
enddo
pack
*C库剩下的就是未比中的记录
close all
set talk on
set safe on
? time()    &&运行结束时间
---------------------------------

[ 本帖最后由 沙枣 于 2015-7-16 17:47 编辑 ]

那是因为他用的是C型字段，必须考虑到可能有的尾部空格。如果改用V型字段，完全可以不用这个函数。

V型字段？我还没用过，你意思是在SQL2000上用V型字段？可以不担心空格问题？

上传数据，纸上谈兵是没用的。