学生学号（XH）长度是18 字符型 如：305200909034500001  前13位固定不变，后5位递增。
我想用repl 的方法填充。
先做一个表单 ，加一个文本框Text1）,按钮下的代码是：
set talk off   
km8=alltrim(thisform.text1.value)  
gg=val(km8)
repl all xh with alltrim(str((recno()+gg-1),18))
thisform.release

注：km8 和gg 均为全局变量，km8 用来接收text1 所输入的起始号。

问题：当起始号小于等于16位时，正常替换；当起始号大于等于17位时，个位均变成 0 ，不能正常替换。
      请问如何处理，来替换18位的学号（XH）？

set talk off     
km8=alltrim(thisform.text1.value)   
* gg=val(km8)  
* repl all xh with alltrim(str((recno()+gg-1),18))
repl all xh with km8 +padl(recn()-1,5,"0")   
thisform.release  

set talk off      
gg=val(subs(km8,14))   
km8=left(thisform.text1.value,13)     
repl all xh with km8 +padl(recn()-1+gg,5,"0")   
thisform.release  

非常感谢二位老师的指点，可以正常填写充了。代码如下：
set talk off      
km8=left(thisform.text1.value,13)     
repl all xh with km8 +padl(recno(),5,"0")
thisform.release   

以上代码填充的结果是从1开始填充，如果起始码不是1
使用sywzs老师给的代码：
set talk off      
gg=val(subs(km8,14))   
km8=left(thisform.text1.value,13)     
repl all xh with km8 +padl(recn()-1+gg,5,"0")   
thisform.release   

会弹出“函数参数的值、类型或数目无效。”的提示。
我用的是VF6.0版。

*set talk off   
*km8=alltrim(thisform.text1.value)  
*gg=val(km8)
*gg=val(km8)+recno()-1
*repl all xh with alltrim(str((recno()+gg-1),18))

set talk off   
km8=alltrim(thisform.text1.value)
gg=val(km8)+recno()-1  
repl all xh with "3052009090345"+right(str(recno()-gg+1000000),5)   &左边既然不变就可以用固定字符串表示 数值位数不能大于16位采用科学计数法表示所以不能显示起始数。

thisform.release


[ 本帖最后由 sd_tysd 于 2009-10-7 11:22 编辑 ]

当数值转换为字符串并需要前导0时（即固定若干位字符），可以用padl()函数来添加（如2楼），也可以用加一个合适的数，转换后截取后几位的办法（如5楼），我更倾向于使用后者的方法。

在原表中增加一个字段，暂命名为XH1
REPLACD ALL XH1 WITH LEFT(ALLTRIM(XH),13)+PADL(RECNO(),5,[0])