以一个库中的资料修改另一个数据库!
工作中用到一个录取表,但录取表中只有录取的代码,比如会计专业(函授,理工类)的录取代码是04,现在有一个代码库表,怎样把录取库表按代码库表修改过来呢?我自己做了一个表单,可发现循环应该不对,比如只找到一个会计专业就会修改过来,但下面的就不会修改,哪位大虾能帮我看看啊?
local a,b,i,num
sele 1
b=thisform.text1.value
use &b alias bb
sele 2
a=thisform.text2.value
use &a alias aa
i=0
j=0
sele 2
do while .not.eof()
ly=lqzy
sele 1
locate for lqzy=ly
if found()
repl bb.zyh with aa.zyh
repl bb.xxxs with aa.xxxs
repl bb.kl with aa.kl
i=i+1
else
sele 2
repl 标记 with '没有'
messagebox(ly)
j=j+1
endif
sele 2
skip
enddo
sele 1
use
sele 2
use
?i