上面的代码,是可以用在VFP6的

我问的是win7和vfp6啊  现在类似代码 在vfp6 和xp中已经没有问题了

set defa to d:\
clos all
use gcf && 此处改为 USE WT IN 0
do while .not.eof()
   N=RECNO()
   dele from cgf where wt.cc=cgf.aa &&系统自动打开CGF
   SELECT WT
   GO N+1
enddo
clos all
use cgf
brow

[此贴子已经被作者于2017-9-21 13:53编辑过]

CREATE CURSOR cfg (aa I)
INSERT INTO cfg VALUES (102)
INSERT INTO cfg VALUES (101)
INSERT INTO cfg VALUES (103)

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)
SCAN
    DELETE FROM CFG WHERE WT.CC=CFG.AA
ENDSCAN
SELECT CFG
BROWSE

XP、VFP6下通过

[此贴子已经被作者于2017-9-21 14:00编辑过]

WIN7 下用 VFP9SP2

VFP6可以在WIN7下运行

现在的问题是xp vfp6下通过的代码 在win7 vfp6 下无法通过

楼主

能不能考虑别用循环

用sql语句搞定这个需求啊

不同表间切换、移动指针，效率很差的

use cgf in 0
use wt in 1
delete from cgf a ;
join  wt b ;
on a.aa=b.cc

这个语句在sql server里面是能运行的
不知道在vfp里行不行

[此贴子已经被作者于2017-9-21 16:41编辑过]

clos database
use cgf IN 0
use wt IN 0
* 要操作 cgf 表,就要循环 wt 表,这样才能从头到尾,sql 命令删除 cgf 表,不会影响到 循环表 wt 的指针
SELECT wt
GO TOP
do while .not.eof()
   dele from cgf where wt.cc=cgf.aa
   skip
enddo
clos database
USE cgf
brow

如果是VFP9就简单了.
DELETE cgf from cgf where aa in (SELECT cc FROM wt )
DELETE cgf from cgf,wt where wt.cc==cgf.aa
都可以
但如果删除不等于的,
DELETE cgf from cgf where aa not in (SELECT cc FROM wt ) && 正常
DELETE cgf from cgf,wt where wt.cc <> cgf.aa &&有问题