标题:Vfp中怎么实现不同类别的流水编号?
只看楼主
schtg
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:https://t.me/pump_upp
等 级:贵宾
威 望:67
帖 子:1355
专家分:2534
注 册: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
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册: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
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
回复 14楼 fown
托你的福,还行。
最近看不到"葛忧"了

坚守VFP最后的阵地
2019-11-22 22:11
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:28
帖 子:680
专家分:1287
注 册: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
来 自:红土地
等 级:贵宾
威 望:396
帖 子:11713
专家分:43267
注 册:2006-5-13
得分:3 
自己动脑筋,按照编码的规则,结合sdta提供的代码,这个实现起来并不难。

活到老,学到老! http://www. E-mail:hu-jj@
2019-11-24 09:37
xuminxz
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:40
帖 子:749
专家分:2475
注 册: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



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-497974-1-1.html




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

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