*——作用：使“000000XX”形式的編號自動加1
FUNCTION AUTOADD(nCode)
	*——獲取字符串長度
	nLen=Len(nCode)
	*——將字符型轉(zhuǎn)換為數(shù)值型，即獲取非0部分的數(shù)值
	nCode = VAL(nCode)
	*——非0部分?jǐn)?shù)字加1
	nCode = nCode + 1
	*——轉(zhuǎn)換為字符型
	nCode = ALLTRIM(STR(nCode))
	*——獲取轉(zhuǎn)換后的字符串的長度
	nLength = LEN(nCode)
	*——在數(shù)字之前加上前置“0”
	nZero="0000000000"
	nCode = SUBSTR(nZero,1,nLen-nLength) + nCode
	*——返回結(jié)果
	RETURN nCode
ENDFUNC