不要用数字和单个字母做表的名字，否则会与工作区相混淆。例如：将123改名为a123，然后再添加：
APPEND FROM a123 for !DELETED()


[ 本帖最后由 qjbzjp 于 2013-4-12 16:04 编辑 ]

嗯，那个123只是举个例子，呵呵。我怕混了都是用很详细的中文名做表名的。

SET TALK OFF
CLOSE TABLES ALL
SET DELETED ON

USE f:\评估\VFP\全部分红保单信息.dbf IN 0 ALIAS 全部分红保单信息
USE f:\评估\VFP\保单信息.dbf IN 0 ALIAS 保单信息
USE f:\评估\VFP\产品信息表.dbf IN 0 ALIAS 产品信息表

SELECT 保单信息
SCAN
    SEEK 保单信息.产品代码 ORDER tag 产品代码 IN 产品信息表
    IF 产品信息表.设计类型!="分红型"   
        DELETE
    ENDIF
ENDSCAN


SELECT 全部分红保单信息
APPEND FROM 保单信息

RECALL all



SET DELETED OFF
CLOSE TABLES ALL
SET TALK ON


这个是俺的代码，俺要这么匹配才行，呵呵。

SET TALK OFF
CLOSE TABLES ALL
USE f:\评估\VFP\全部分红保单信息.dbf IN 0 ALIAS 全部分红保单信息
USE f:\评估\VFP\保单信息.dbf IN 0 ALIAS 保单信息
USE f:\评估\VFP\产品信息表.dbf IN 0 ALIAS 产品信息表

SELECT 保单信息
SCAN
    SEEK 保单信息.产品代码 ORDER tag 产品代码 IN 产品信息表
    IF 产品信息表.设计类型!="分红型"   
        DELETE
    ENDIF
ENDSCAN

SELECT 全部分红保单信息
APPEND FROM 保单信息 for !DELETED()
SELECT 保单信息
RECALL all
CLOSE TABLES ALL
SET TALK ON

你只是两表间复制数据，就不要先删除。再复制，然后再恢复那么麻烦呀。

CLOSE TABLES
SET DELETED ON
USE f:\评估\VFP\全部分红保单信息.dbf IN 0 ALIAS 全部分红保单信息
USE f:\评估\VFP\保单信息.dbf IN 0 ALIAS 保单信息
USE f:\评估\VFP\产品信息表.dbf IN 0 ALIAS 产品信息表

***********这句适用在VFP9.0
INSERT INTO 全部分红保单信息 (字段1,字段2...) select a.字段1,a.字段2... FROM 保单信息 A,产品信息表 B WHERE A.产品代码==B.产品代码 AND B.设计类型=='分红型' &&你定好其中的字段

* 也可以用以下这几句代替 上面一句
*select A.* FROM 保单信息 A,产品信息表 B INTO CURSOR TMP1 WHERE A.产品代码==B.产品代码 AND B.设计类型=='分红型'
*SELECT 全部分红保单信息
*APPE FROM (DBF('TMP1'))

SET DELETED OFF
CLOSE TABLES



[ 本帖最后由 kiff 于 2013-4-13 18:09 编辑 ]