set defa to d:\
clos all
use cgf
do while .not.eof()
   dele from cgf where wt.cc=cgf.aa
   skip
enddo
clos all
use cgf
brow

这是一个不能被运行的代码 ，代码大意就是  首先定位CGF.AA 然后去wt表中搜索 如果wt.cc=cgf.aa 则删除掉cgf中当前记录

SET DEFAULT TO d:\
CLOSE ALL
SELECT 1
  USE cgf

 SELECT 2
   USE wt

 SELECT 1

 DO WHILE NOT EOF()
  cka=aa
  SELECT 2
   LOCATE FOR wt.cc=cka
    IF NOT EOF()
     DELETE
    ENDIF
   SELECT 1
   SKIP
ENDDO
CLOSE ALL
USE cgf
BROWSE 

如果数据很多的话，用索引操作就会成倍提高速度！

CREATE CURSOR cfg (aa I)
INSERT INTO cfg VALUES (102)
INSERT INTO cfg VALUES (101)
INSERT INTO cfg VALUES (103)
INDEX on aa TAG cfg_aa
CREATE CURSOR wt (cc I)
INSERT INTO wt VALUES (101)
INSERT INTO wt VALUES (103)
INSERT INTO wt VALUES (105)
INSERT INTO wt VALUES (101)
INSERT INTO wt VALUES (102)
INSERT INTO wt VALUES (104)
INSERT INTO wt VALUES (103)
INSERT INTO wt VALUES (106)
SET RELATION TO cc INTO cfg
DELETE FOR FOUND("cfg")
SET DELETED ON
BROWSE
SET DELETED OFF

不能运行的原因，可能是  dele from cgf where wt.cc=cgf.aa 这一句移动了指针位置，后面你再用eof()去判断，就已经失去了意义。

是没有打开wt这个表 系统不认识wt是神马  语法错误 而非运行错误

大致代码如此   后来分析 是win7和vfp6 不融洽 导致个别语句失去效用  也不晓得是不是这样

这个不错  效率应该很高

SET SAFETY OFF
SET STATUS OFF   
SET STATUS BAR OFF
SET TALK OFF

set defa to d:\

CREATE TABLE cgf(aa i)
INSERT INTO cgf(aa) VALUES (601)
INSERT INTO cgf(aa) VALUES (101)
INSERT INTO cgf(aa) VALUES (201)
INSERT INTO cgf(aa) VALUES (301)
INSERT INTO cgf(aa) VALUES (401)
INSERT INTO cgf(aa) VALUES (501)

CREATE TABLE wt(cc i)
INSERT INTO wt(cc) VALUES (501)
INSERT INTO wt(cc) VALUES (301)
INSERT INTO wt(cc) VALUES (101)
INSERT INTO wt(cc) VALUES (201)
INSERT INTO wt(cc) VALUES (401)
INSERT INTO wt(cc) VALUES (402)
INSERT INTO wt(cc) VALUES (403)
clos database

use cgf IN 0
use wt IN 0
SELECT wt
GO TOP

do while .not.eof()
   dele from cgf where wt.cc=cgf.aa
   skip
enddo
clos database
USE cgf
brow

现在的问题是 win7 和vfp6 能组合不

根据楼主的代码修改.楼主的错误在于使用时,没打开表,SQL 语句时,又没给出完整路径导致错误.