Question

vf中两个表间的操作

select jxjxx.学号,xsjbxxqk.学号 from jxjxx,xsjbxxqk
go top
do while.not.eof()
scan
locate for jxjxx.学号=xsjbxxqk.学号
replace jxjxx.姓名 with xsjbxxqk.姓名
endscan
enddo请问这个程序错在哪里了？总是不对！

Answer 1

select jxjxx.学号,xsjbxxqk.学号 from jxjxx,xsjbxxqk &&此句有点莫名其妙，1）无连接，go top &&GO到哪个表的TOP
do while.not.eof()
scan &&是一个废话
locate for jxjxx.学号=xsjbxxqk.学号
replace jxjxx.姓名 with xsjbxxqk.姓名
endscan
enddo从你的程序看是想：如果jxjxx.学号=xsjbxxqk.学号，则用jxjxx.姓名替换xsjbxxqk.姓名应该这么写程序：select 1 &&选择一个工作区use jxjxx &&打开表select 2 &&选择另外一个工作区use xsjbxxqkselect 1do while not eof() xh=jxjxx.学号 &&将jxjxx表中当前记录学号字段的值赋给变量xh xm=jxjxx.姓名 select 2 &&选择第2个工作区 loca for xsjbxxqk.学号=xh if found() &&如果找到 replace 姓名 with xm endif select 1 &&选择第1个工作区 skip &&记录指针下移一条enddo