| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 834 人关注过本帖
标题:求高手指教编程实现序号递增问题
只看楼主 加入收藏
wjp456789
Rank: 5Rank: 5
来 自:四川成都
等 级:职业侠客
威 望:1
帖 子:345
专家分:330
注 册:2012-6-25
收藏
得分:0 
回复 8楼 bccn201203
应该有14.帮别人弄的。图片是他提供的。结果我这菜鸟水平帮不上忙。只有来找你们了。

我是来向高手学习的!
2012-12-20 16:31
cxzbzgz
Rank: 8Rank: 8
来 自:云南楚雄
等 级:贵宾
威 望:24
帖 子:297
专家分:808
注 册:2012-6-15
收藏
得分:5 
**我做了一个程序,可以满足楼主的要求,程序运行通过,速度很快,
 CLOSE DATABASES    && 关闭所以已经打开的数据库
 ALTER  table  aaa123 ADD COLUMN xbid1 c(28)   &&添加一个新字段,用于xbid1,字段长度和值与xbid相同,用于存放**重复记录编号
 INDEX on xbid TO xbid   
 GO TOP
  i=11                 && 定义重号的初始值
  j=SUBSTR(xbid,1,14)  && 定义重号的前14位数值
DO whil NOT EOF()        
 mXbid=xbid   &&定义是否重号的初值
  DO whil NOT EOF() AND xbid=mXbid  &&判断是否重号
     SKIP   
    DO CASE   
    CASE i<100
      ii='0000'+STR(i,2)
    CASE i<1000
      ii='000'+STR(i,3)
    CASE i<10000
      ii='00'+STR(i,4)
    CASE i<100000
      ii='0'+STR(i,5)
    CASE i>=100000 AND i<1000000
      ii=STR(i,6)
   ENDCASE   
    IF xbid=mXbid   && 如果重号的话
     REPLACE xbid1 WITH j+ii  && 把数据写入重号字段xbid1
      i=i+1                   && 如果重号的话,i递增1   
    ENDIF      
   ENDDO   
    mXbid=xbid                && 如果已经没有重号的了,就重新定义
  ENDDO

学习交流VFP,QQ:248561326。
2012-12-21 11:07
快速回复:求高手指教编程实现序号递增问题
数据加载中...
 
   



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

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