我不是骂人啊，如果您们认为我是骂人，那说明我措辞有问题，语文水平太差、素质也低。在此，我诚心向所有值得我尊敬的帮过我的大侠们、老师们、朋友们道歉！请您们原谅我的过失。我会认真学习，提高修养，提升素质。

                                                                                                                                   .

CLOSE ALL
USE "test.dbf"
GO TOP
DO WHILE ! EOF()
  FOR i=1 TO 10
    IF EVALUATE(FIELD(i))=0
      LOOP
    ENDIF
    cNum=STR(MOD(i,10),1)
    FOR j=11 TO FCOUNT()
      cField=FIELD(j)
      IF cNum$cField
        IF RECNO()=1
          REPLACE &cField WITH 1
        ELSE
          SKIP -1
          nNum=&cField
          SKIP
          REPLACE &cField WITH nNum+1
        ENDIF
      ENDIF
    ENDFOR
  ENDFOR
  SKIP
ENDDO

老版主出山了！

感谢，尽在不言中。我是女的，肯帮我的人，您们是哥。，

解决实例问题，对学习提升真的很好帮助。