2,749
社区成员
发帖
与我相关
我的任务
分享关于vfp自动编号的问题
newbh=right('00000'+allt(str(val(编号)+1)),5)
以上自动编号代码得出的结果是
编号
00001
问题：
我想编号前面加当前年份，如：
编号
201100001
怎么改，希望大家指指点或直接写一下代码，谢谢！
以上自动编号代码得出的结果是
编号
00001
问题：
我想编号前面加当前年份，如：
编号
201100001
怎么改，希望大家指指点或直接写一下代码，谢谢！
...全文
请发表友善的回复…
发表回复
cdbqss1 2011-12-27
- 打赏
- 举报
生成自动编号后，最好检查一下是否有重复的编号，若重复，则再取一次，以此类推。
lygcw9602 2011-12-24
- 打赏
- 举报
自动生成编号通用代码:
newbh=substr(dtos(date())1,4)+padl(allt(str(val(field(I))+1)),fsize(field(I)),"0")
１.substr(dtos(date())1,4)
dtos()函数:将指定的日期转换成：yyyymmdd格式。
substr()函数：从生成的yyyymmdd截取年份。
2.field():字段名函数，fsize():字段宽度函数。
newbh=substr(dtos(date())1,4)+padl(allt(str(val(field(I))+1)),fsize(field(I)),"0")
１.substr(dtos(date())1,4)
dtos()函数:将指定的日期转换成：yyyymmdd格式。
substr()函数：从生成的yyyymmdd截取年份。
2.field():字段名函数，fsize():字段宽度函数。
敦厚的曹操 2011-09-06
- 打赏
- 举报
十豆三，牛
gt54lcy 2011-09-05
- 打赏
- 举报
newbh=Transform(Year(Date()))+Padl(编号+1,5,'0')
tanbiao1597 2011-09-04
- 打赏
- 举报
这两个函数什么意思啊
青草根儿 2011-08-15
- 打赏
- 举报
Transform(Year(Date()))+Padl(编号+1,5,'0')十豆三的这个很好，第一次见这两个函数
dfwxj 2011-08-13
- 打赏
- 举报
newbh=ttoc(date(),1)
十豆三 2011-08-13
- 打赏
- 举报
newbh=Transform(Year(Date()))+Padl(编号+1,5,'0')
wwwwb 2011-08-13
- 打赏
- 举报
trans(year(date()))
「已注销」 2011-08-12
- 打赏
- 举报
newbh=alltrim(str(year(date())))+newbh
vfp112233 2011-08-12
- 打赏
- 举报
已经解决了，不麻烦大家了。
