大家给看看，程序可以运行，但是没合并成功。我想把表二的以下信息添加到表一中
set talk off
clear all
sele 1
USE 表一
sele 2
USE 表二
go 1
do while .not. eof()
b1=关键字
b2=主要经济来
b3=耕地面积
b4=水田面积
b5=旱田面积
b6=林地面积
b7=操场面积
b8=土地经营方
b9=家用电脑
b10=互联网
b11=手机
b12=卫星天线
b13=座机
b14=有线电视
b15=支出情况
sele 1
go 1
locate for 关键字=b1
replace 主要经济来 with b2
replace 耕地面积 with b3
replace 水田面积 with b4
replace 旱田面积 with b5
replace 林地面积 with b6
replace 操场面积 with b7
replace 土地经营方 with b8
replace 家用电脑 with b9
replace 互联网 with b10
replace 手机 with b11
replace 卫星天线 with b12
replace 座机 with b13
replace 有线电视 with b14
replace 支出情况 with b15
sele 2
skip
enddo
close all
return

locate for 关键字=b1 这句改下试试

locate for allt(关键字)==allt(b1)

可以了。非常感谢

在VFP 9。0

UPDATE 表一 SET 主要经济来=b.主要经济来,耕地面积=b.耕地面积,水田面积=b.水田面积,旱田面积=b.旱田面积;
,林地面积=b.林地面积,操场面积=b.操场面积,土地经营方=b.土地经营方,家用电脑=b.家用电脑,互联网=b.互联网;
,手机=b.手机,卫星天线=b.卫星天线,座机=b.座机,有线电视=b.有线电视,支出情况=b.支出情况 from 表二 b WHERE 表一.关键字==b.关键字

 在 VFP6。0

CLOSE DATABASES
Use 表一 IN A
Use 表二 IN B
SELECT B
SCAN
    Update 表一 Set 主要经济来=b.主要经济来,耕地面积=b.耕地面积,水田面积=b.水田面积,旱田面积=b.旱田面积;
    ,林地面积=b.林地面积,操场面积=b.操场面积,土地经营方=b.土地经营方,家用电脑=b.家用电脑,互联网=b.互联网;
    ,手机=b.手机,卫星天线=b.卫星天线,座机=b.座机,有线电视=b.有线电视,支出情况=b.支出情况 Where 关键字==b.关键字

ENDSCAN
CLOSE DATABASES


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

嗯，这个更方便了，谢谢版主

贴上两个表的结构