又来求教了，有了点小问题 - VFP论坛

第 11 楼

得分:0

以下是引用wangzhiyi在2014-4-14 08:35:03的发言：

楼主的代码本身没有问题，但是每次都是修改同样的那条记录，因为每次都是重新打开，再查找，再修改记录。不知道楼主这段代码想达到什么目的？

tg1 tg2 tg3 tg4 的内容在变化的

第 12 楼

得分:0

以下是引用zengjun81357在2014-4-14 08:56:42的发言：

hu9jj班长说得对，repl 替换需要指明记录的，你加个条件 FOR odrep.month-odrep.pdtcode-odrep.spec-odrep.standn<>tg1-tg2-tg3-tg4

thank you
搞定了，很感谢

IF USED('odrep') THEN
      SELECT odrep
   ELSE
      SELECT 0
      USE odrep
   ENDIF
   LOCATE FOR odrep.month-odrep.pdtcode-odrep.spec-odrep.standn==tg1-tg2-tg3-tg4
   IF FOUND()
      axx=axx+1
      REPLACE hamx.team WITH odrep.team,hamx.rep WITH odrep.rep,hamx.regbj WITH odrep.regbj,hamx.supbj WITH odrep.supbj,hamx.repbj WITH odrep.repbj,hamx.city WITH odrep.city,hamx.prov WITH odrep.prov
   ELSE
      LOCATE FOR odrep.month-odrep.pdtcode-odrep.spec-odrep.standn<>tg1-tg2-tg3-tg4
      IF FOUND()
         bxx=bxx+1
         REPLACE hamx.team WITH '非目标',hamx.rep WITH '非目标',hamx.regbj WITH 'XX',hamx.supbj WITH 'X',hamx.repbj WITH 'XXX'
      ENDIF
   ENDIF
   USE IN odrep
   USE IN hamx

修改之后正确执行，这个问题我已经记在葵花宝典上了，以后遇到同样的情况就不会出错了

第 13 楼

得分:0

以下是引用liuxingang28在2014-4-14 10:17:55的发言：

楼主的真正错误是对 Replace 语句的错误使用。我曾在 Taifu945版主发表的《Foxpro 入门手册》的回帖中专门论述过。
因为当前工作区是 odrep，楼主试图通过在字段前加表别名的方式，去更新另一表的字段，如：Replace hamx.team with odrep.team，这种方式非常危险，因为它有 2 个先决条件：第一个是当前工作区必须有表打开，否则会报错；第二个是当前工作区的指针不能是表尾，即EOF()=.t.，否则虽然不报错，但不会执行任何替换操作。因此，千万不能采用这种方式。
正确的代码有2种写法：
第一种：
select hamx
replace team with odrep.team
第二种：
replace team with odrep.team in hamx

又学习新知识了，谢谢