【vfp开源代码栏目提醒】:网学会员vfp开源代码为您提供AutoAdd.prg参考,解决您在AutoAdd.prg学习中工作中的难题,参考学习。
*——作用:使“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