求教,编序号的问题
有A表,其中有字段“代码1”,“代码2”,都是字符型,且有值。另有一个空字段“编号”,其中“编号”的编写要求是代码1+代码2+4位序号(从0001-2568)。请教该如何编写?谢谢
REPLACE ALL 编号 WITH "代码1"+"代码2"+PADL(ALLTRIM(STR(RECNO())),4,"0")
[ 本帖最后由 qjbzjp 于 2012-11-29 11:15 编辑 ]
程序代码:*——作用:使“000000XX”形式的编号自动加1
FUNCTION AUTOADD(nCode)
*——获取字符串长度
nLen=Len(nCode)
*——将字符型转换为数值型,即获取非0部分的数值
nCode = VAL(nCode)
*——非0部分数字加1
nCode = nCode + 1
*——转换为字符型
nCode = ALLTRIM(STR(nCode))
*——获取转换后的字符串的长度
nLength = LEN(nCode)
*——在数字之前加上前置“0”
nZero="0000000000"
nCode = SUBSTR(nZero,1,nLen-nLength) + nCode
*——返回结果
RETURN nCode
ENDFUNC
