主题：vpf6.0的程序在与9.0下为何执行不了
阿林123
[专家分：0] 发布于 2013-01-22 13:12:00
FUNCTION AUTOADD(nCode)
nLen=Len(nCode)
nCode = VAL(nCode)
nCode = nCode + 1
nCode = ALLTRIM(STR(nCode))
nLength = LEN(nCode)
nZero="0000"
nCode = SUBSTR(nZero,1,nLen-nLength) + nCode
RETURN nCode
ENDFUNC
回复列表 （共4个回复）
沙发
sdta [专家分：570] 发布于 2013-01-24 00:53:00
?autoadd([123456789])
FUNCTION AUTOADD(nCode)
nLen=Len(nCode)
nCode = VAL(nCode)
nCode = nCode + 1
nCode = ALLTRIM(STR(nCode))
nLength = LEN(nCode)
nZero="0000"
nCode = SUBSTR(nZero,1,nLen-nLength) + nCode
RETURN nCode
ENDFUNC
可以运行，最后结果为
1234567890
这段代码什么意思
板凳
阿林123 [专家分：0] 发布于 2013-01-25 11:06:00
这段代码是自动编号用的，自动加1后返回。
3 楼
biansky [专家分：10] 发布于 2013-01-31 17:21:00
很好的文章啊！-------------------------------------------Jordan brand continues to prosper and expansion of its stores throughout the many countries around the world.[url=http://www.cheapjordanforsale.us]cheap jordans[/url] , [url=http://www.cheapjordanforsale.us/air-jordan-11-retro-c-11.html]retro jordan 11[/url] , [url=http://www.cheapjordanforsale.us/air-jordan-13-retro-c-13.html]retro jordan 13[/url] , [url=http://www.cheapjordanforsale.us/air-jordan-5-retro-c-5.html]retro jordan 5[/url]
4 楼
lbscyb [专家分：4780] 发布于 2013-02-10 01:42:00
变量 nCode 被赋值为数值型，然后又赋值为字符型，肯定要出错
虽然vfp在使用变量前不需要申明变量类型，但并不意味着赋值后的变量可以随意赋值各种类型的值，也就是说vfp变量申明是在首次赋值时确定了其变量类型。
我来回复
您所在位置：