【vfp开源代码栏目提醒】:网学会员--在 vfp开源代码编辑为广大网友搜集整理了:autoinc.prg绩等信息,祝愿广大网友取得需要的信息,参考学习。
*——“AutoInc”函数
* 作用:使“000000XX”形式的编号自动加1
* 接收“0000XX”形式的字符串作为参数
* 字符串长度限制为10
FUNCTION autoinc(nCode)
*——获取字符串长度
nLen=Len(nCode)
*——将字符型转换为数值型,即获取非0部分的数值
nCode = VAL(nCode)
*——非0部分数字加1
nCode = nCode + 1
*——转换为字符型
nCode = ALLTRIM(STR(nCode))
*——获取转换后的字符串的长度
nLength = LEN(nCode)
*——在数字之前加上前置“0”
nZero="000000000000"
nCode = SUBSTR(nZero,1,nLen-nLength) + nCode
*——返回结果
RETURN nCode
ENDFUNC