回 帖 发 新 帖 刷新版面

主题:VFP自动编号为何提示嵌套错误?谢谢大家

要给201101数据库自动编流水号,字段名为lsh,按下列程序运行时,一直提示嵌套错误,请各位指点。

sele 1
use 201101
go top 
ls1=001
  do while not eof()
  ls1=ls1+1
  repl  Lsh with allt(str(ls1))
    skip 1
 end do
 sele 1
 use
 
谢谢大家!

回复列表 (共5个回复)

沙发

end do--enddo

板凳

sele 1
use 201101
go top 
ls1=001
do while not eof()
   ls1=ls1+1
   repl  Lsh with allt(str(ls1))
   skip 1
[color=800000] end do[/color] &&应该 ENDDO 不能分开写
 sele 1
 use
[color=FF0000]REPLACE LSH WITH PADL(RECNO(),6,"0") [/color]&& 6是LSH字段的宽度

3 楼

REPLACE ALL zzzsbmh WITH '0660981'+RIGHT('00000'+ALLTRIM(STR(RECNO()+98)),5)
类似这样的一条命令就可以,不需要编程序的(根据记录号生成编号)

4 楼

REPLACE ALL LSH WITH CHRTRAN(STR(RECNO(),6)," ","0")

5 楼

非常感谢。终于找到原因了。

我来回复

您尚未登录,请登录后再回复。点此登录或注册