SELECT 1
USE ks
COPY STRUCTURE TO jg
SELECT 2
USE da
SELECT 3
USE jg
SELECT 1
nn=""
ks=""
DO WHILE !EOF()
nn=zkz
SELECT 3
APPEND BLANK
REPLACE zkz WITH nn
SELECT 1
FOR n=1 TO FCOUNT()-1
ks=field(n+1)
cks="ks." + ks
cda="da." + ks
IF &cks=&cda
SELECT 3
REPLACE &ks WITH "1"
ELSE
SELECT 3
REPLACE &ks WITH "0"
ENDIF
ENDFOR
SELECT 1
SKIP
ENDDO

jg表是你想要的结果

非常感谢
结果能出来，不过以下代码报错，只能忽略，才能才行
IF &cks=&cda
SELECT 3
REPLACE &ks WITH "1"
ELSE
SELECT 3
REPLACE &ks WITH "0"
ENDIF

没有出错阿，我的运行，正常，提示什么错误了？
我没有加close all
你之前可能运行了，提示重复打开库吧？你关闭VFP或者加上CLOSE ALL