工作中用到一个录取表，但录取表中只有录取的代码，比如会计专业（函授，理工类）的录取代码是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

看不出
do while .not.eof()
.
.
.
enddo
循环语句有什么不对 。

循环应该不对
只能做到一个改变
比如录取库中有5个会计专业
只能对1个会计专业更改，其他的就改变不了

呜，谁能帮帮我呢

没有看明白楼主的意图。

循环没问题，是你的程序有问题：当你根据第二工作区的数据（如会计）找到第一工作区中相应的第一个记录并修改后，返回到第二工作区时，执行了SKIP命令，此时第二工作区的指针向下移动了，数据已经发生变化（不再是“会计”，可能是“企业管理”、“计算机”等），这时再转到么一工作区执行LOCATE命令，找到的自然就不再是“会计”了。所以自然就是只能修改第一条“会计”，其他的“会计”都修改不了。
要修改很简单：
在      repl bb.zyh with aa.zyh
      repl bb.xxxs with aa.xxxs
      repl bb.kl with aa.kl
的后面加上条件 for lqzy=ly
也可以改成：
      repl bb.zyh with aa.zyh,bb.xxxs with aa.xxxs,bb.kl with aa.kl  for lqzy=ly

当然，您也可以采取以下办法：在LOCATE 后面对第一工作区的表使用DO While ! EOF() ……  CONTINUE……Enddo的循环还对每一符合条件的记录进行修改，不过这样的办法比上面的办法麻烦。

[ 本帖最后由 啸凡 于 2010-12-15 09:52 编辑 ]

哇，还是版主厉害！
己经成功了！
十分、万分感谢！
太激动了！
再次感谢！十分、万分感谢！
说地这般详细！

再次感谢啸凡版主！
太厉害！