求教,编序号的问题
有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