| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4139 人关注过本帖
标题:Vfp中怎么实现不同类别的流水编号?
只看楼主 加入收藏
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1730
专家分:3324
注 册:2012-2-29
收藏
得分:3 
回复 7楼 kongyifei
认真仔细阅读、研究一下sdta的程序,测试一下,得到的结果与你希望的结果是否一致?
2019-11-22 17:33
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
收藏
得分:3 
以下是引用sdta在2019-11-21 22:40:41的发言:


如果楼主嫌麻烦,可以请别人帮忙处理数据,那是要有代价的。



唉,给这个代码有什么意义?心疼你三秒

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2019-11-22 19:48
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
回复 12楼 fown
老版主出山了,不心疼电费了

坚守VFP最后的阵地
2019-11-22 21:33
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
收藏
得分:0 
很多年没碰过写代码了,最近被逼无耐,因为单位上的软件是IE的,只能做了一个外挂,偶尔想起这里,上来看看,还好吗?弟兄

有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2019-11-22 21:54
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
回复 14楼 fown
托你的福,还行。
最近看不到"葛忧"了

坚守VFP最后的阵地
2019-11-22 22:11
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:28
帖 子:682
专家分:1299
注 册:2009-3-1
收藏
得分:3 
以下是引用kongyifei在2019-11-21 21:51:48的发言:

大佬 我明白你的意思 但是我的考生编号这栏目 303  304啥的 有一百多项 不能一个个写命令吧 有没有其他的方式?


楼主,你会编写试场号与座位号及准考证号的话,你的问题是同一个原理啊,不就很容易解决了嘛!
2019-11-23 21:08
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:3 
自己动脑筋,按照编码的规则,结合sdta提供的代码,这个实现起来并不难。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2019-11-24 09:37
xuminxz
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:41
帖 子:766
专家分:2517
注 册:2011-5-8
收藏
得分:3 
1、原表tb1中需要区分记录的方法(比如学号 xsh、身份证号 sfzh……)
2、只要研究清楚select sql命令的用法就可以了
  
  以下是代码
 select   distinct kshmdm from tb1 into cursor kctmp order by kskmdm
for I=1 to recount('kctmp')
    select kctmp
    go I
    kmdm=allt(kskmdm)
    select xsh from tb1 where allt(ksdmdm)==m.kmdm into cursor tmp
    for j=1 to recount('tmp')
        select tmp
        go j
        cxsh=allt(xsh)
        select tb1
        repl xh with PADL(j, 3, "0") for allt(xsh)==cxsh
    endfor
endfor

   
   

dBase有人接盘了。
2019-11-27 14:45
chychychy
Rank: 2
等 级:论坛游民
帖 子:285
专家分:98
注 册:2015-4-18
收藏
得分:0 
回复 8楼 sdta
程序代码:
CREATE CURSOR tt (xh c(3),kskmdm c(3), xm c(10))
INSERT INTO tt VALUES ("","304","张1")
INSERT INTO tt VALUES ("","303","张2")
INSERT INTO tt VALUES ("","303","张3")
INSERT INTO tt VALUES ("","304","张4")
INSERT INTO tt VALUES ("","303","张5")
INSERT INTO tt VALUES ("","303","张6")
INSERT INTO tt VALUES ("","305","张7")
INSERT INTO tt VALUES ("","306","张8")
BROWSE

INDEX on kskmdm TAG px
nXh = 1&&&若此处为1;下面if用绝对等于两个==,如果if语句一个等号=,此处可以为0
cDm = ""
SCAN 
    IF kskmdm == cDm
        nXh = nXh + 1
    ELSE
        nXh = 1        
    ENDIF 
    cDm = Kskmdm
    REPLACE xh WITH PADL(nXh, 3, "0")
ENDSCAN
BROWSE 
2023-10-18 15:03
chychychy
Rank: 2
等 级:论坛游民
帖 子:285
专家分:98
注 册:2015-4-18
收藏
得分:0 
回复 5楼 kongyifei
你试试就能发现,版主的已经实现了不同kskmdm了
程序代码:
CREATE CURSOR tt (xh c(3),kskmdm c(3), xm c(10))
INSERT INTO tt VALUES ("","304","张1")
INSERT INTO tt VALUES ("","303","张2")
INSERT INTO tt VALUES ("","303","张3")
INSERT INTO tt VALUES ("","304","张4")
INSERT INTO tt VALUES ("","303","张5")
INSERT INTO tt VALUES ("","303","张6")
INSERT INTO tt VALUES ("","305","张7")
INSERT INTO tt VALUES ("","306","张8")
BROWSE

INDEX on kskmdm TAG px
nXh = 1&&&若此处为1;下面IF kskmdm == cDm用绝对等于(两个==),如果if语句一个等号=,此处可以为0
cDm = ""
SCAN 
    IF kskmdm == cDm
        nXh = nXh + 1
    ELSE
        nXh = 1        
    ENDIF 
    cDm = Kskmdm
    REPLACE xh WITH PADL(nXh, 3, "0")
ENDSCAN
BROWSE 

2023-10-18 15:11
快速回复:Vfp中怎么实现不同类别的流水编号?
数据加载中...
 
   



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

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