给一小段程序供您参考
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 编辑 ]