| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 338 人关注过本帖
标题:求教,编序号的问题
只看楼主 加入收藏
ran_nuo
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2012-7-17
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:4 
求教,编序号的问题
有A表,其中有字段“代码1”,“代码2”,都是字符型,且有值。另有一个空字段“编号”,其中“编号”的编写要求是代码1+代码2+4位序号(从0001-2568)。请教该如何编写?谢谢
搜索更多相关主题的帖子: 如何 
2012-11-29 10:34
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:15 
REPLACE ALL 编号 WITH "代码1"+"代码2"+PADL(ALLTRIM(STR(RECNO())),4,"0")

[ 本帖最后由 qjbzjp 于 2012-11-29 11:15 编辑 ]

相互学习,互相交流,共同提高。
2012-11-29 11:00
月沐庭轩
Rank: 9Rank: 9Rank: 9
来 自:京城
等 级:贵宾
威 望:17
帖 子:393
专家分:1106
注 册:2011-7-24
收藏
得分:5 
下一字段值=代码1+代码2+AUTOADD(上一编码)
AUTOADD函数如下:
程序代码:
*——作用:使“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

坚持学习vfp,QQ:306805680
2012-11-29 11:01
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9831
专家分:27165
注 册:2012-2-5
收藏
得分:0 
以下是引用qjbzjp在2012-11-29 11:00:56的发言:

REPLACE ALL 编号 WITH "代码1"+"代码2"+PADL(ALLTRIM(STR(RECNO())),4,"0")
?"代码1"+"代码2":本身就是变量,为何要加引号。

坚守VFP最后的阵地
2012-11-29 17:26
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:0 
4楼纠错得对,应该是:
REPLACE ALL 编号 WITH 代码1+代码2+PADL(ALLTRIM(STR(RECNO())),4,"0")
好在楼主已经自己改过来了。


相互学习,互相交流,共同提高。
2012-11-29 17:42
快速回复:求教,编序号的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019986 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved