autoadd.prg

来自「该订单管理系统采用小型数据库管理系统中优秀的软件“Visual FoxPro 6」· PRG 代码 · 共 18 行

*——作用：使“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