给一小段程序供您参考
Go bottom
IF RECNO()=1
No1=1
ELSE
No1=val(编号)+1
ENDIF
  do case
     case No1<10
       zybh='00000'-str(No1,1,0)
     case No1>=10 .and. No1<100
       zybh='0000'-str(No1,2,0)
     case No1>=100 .and. No1<1000
       zybh='000'-str(No1,3,0)
     case No1>=1000 .and. No1<10000
       zybh='00'-str(No1,4,0)
     case No1>=10000 .and. No1<100000
       zybh='0'-str(No1,5,0)
     case No1>=100000
       zybh=str(No1,6,0)
     case No1>=1000000
       messagebox('员工编号过大，你的冗余资料太多。是否对员工编号进行重新设置？',2+32,'提示信息')
  endcase
thisform.text1.value=zybh ＆＆显示编号

其实，用限定的字符串长度来控制前置0长度的方式写出来的程序会更简洁，请搂猪自己摸索一下。如果字符长度已确定，那么采用strtran( )进行字符串替换（ 用‘0’替换前面的空格）就更容易了。

[ 本帖最后由 啸凡 于 2010-4-26 23:02 编辑 ]

?padl(1,8,'0')

用padl()函数
 padl(数值,长度,字符)