| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 774 人关注过本帖
标题:以一个库中的资料修改另一个数据库!
只看楼主 加入收藏
yilance
Rank: 1
等 级:新手上路
帖 子:117
专家分:4
注 册:2010-4-21
结帖率:90.91%
收藏
已结贴  问题点数:20 回复次数:7 
以一个库中的资料修改另一个数据库!
工作中用到一个录取表,但录取表中只有录取的代码,比如会计专业(函授,理工类)的录取代码是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
搜索更多相关主题的帖子: 数据库 资料 
2010-12-07 11:31
panpende
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:528
专家分:963
注 册:2009-4-27
收藏
得分:2 
看不出
do while .not.eof()
.
.
.
enddo
循环语句有什么不对 。
2010-12-07 13:43
yilance
Rank: 1
等 级:新手上路
帖 子:117
专家分:4
注 册:2010-4-21
收藏
得分:0 
循环应该不对
只能做到一个改变
比如录取库中有5个会计专业
只能对1个会计专业更改,其他的就改变不了
2010-12-07 13:50
yilance
Rank: 1
等 级:新手上路
帖 子:117
专家分:4
注 册:2010-4-21
收藏
得分:0 
呜,谁能帮帮我呢
2010-12-07 14:11
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
没有看明白楼主的意图。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2010-12-07 20:57
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:18 
循环没问题,是你的程序有问题:当你根据第二工作区的数据(如会计)找到第一工作区中相应的第一个记录并修改后,返回到第二工作区时,执行了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 编辑 ]

两人行已有我师……
2010-12-07 22:19
yilance
Rank: 1
等 级:新手上路
帖 子:117
专家分:4
注 册:2010-4-21
收藏
得分:0 
回复 6楼 啸凡
哇,还是版主厉害!
己经成功了!
十分、万分感谢!
太激动了!
再次感谢!十分、万分感谢!
说地这般详细!
2010-12-08 10:20
yilance
Rank: 1
等 级:新手上路
帖 子:117
专家分:4
注 册:2010-4-21
收藏
得分:0 
再次感谢啸凡版主!
太厉害!
2010-12-08 10:23
快速回复:以一个库中的资料修改另一个数据库!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.032354 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved