| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4371 人关注过本帖
标题:在vf中添加序号
只看楼主 加入收藏
sxydp
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2013-5-7
结帖率:50%
收藏
已结贴  问题点数:18 回复次数:10 
在vf中添加序号
怎么象excel那样在vf中添加字段,字段中的数字为11001、11002、11003……12001、12002、12003……不同学校的学生添加不同的序列。急待!
搜索更多相关主题的帖子: excel 学校 
2013-05-10 06:27
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:5 
如果学校超过9所,每所学校的学生数超过999人,楼主的学生编号将会产生问题。
楼主的VFP为VFP6? VFP9?

[ 本帖最后由 sdta 于 2013-5-10 07:00 编辑 ]

坚守VFP最后的阵地
2013-05-10 06:57
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
程序代码:
CREATE CURSOR T (学校 C(10),序号 C(6))
INSERT INTO T VALUES ([A],[])
INSERT INTO T VALUES ([A],[])
INSERT INTO T VALUES ([B],[])
INSERT INTO T VALUES ([A],[])
INSERT INTO T VALUES ([B],[])
INSERT INTO T VALUES ([A],[])
INSERT INTO T VALUES ([A],[])
INSERT INTO T VALUES ([A],[])
INSERT INTO T VALUES ([C],[])
INSERT INTO T VALUES ([C],[])
SELECT 学校 FROM T GROUP BY 学校 INTO CURSOR T1
SELECT T1
SCAN
   NRECN=RECNO()
   SELECT T
   I=1
   SCAN FOR T.学校==T1.学校
      REPLACE 序号 WITH PADL(NRECN,2,[0])+PADL(I,4,[0])
      I=I+1
   ENDSCAN
ENDSCAN
SELECT T
BROWSE

坚守VFP最后的阵地
2013-05-10 07:16
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:5 
难道不可以在表中添加一个序号字段么?
不过统一编序号的办法不一定是好办法,建议建立一个字段来存放学校的编号,再配合学生的学号,也许能够满足楼主的需要。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2013-05-10 07:22
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:5 
回复 4楼 hu9jj
这办法不错
2013-05-10 07:53
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
程序代码:
*VFP9代码示例
SELECT A.学校,PADL(RECNO(),2,[0]) XH FROM (SELECT 学校 FROM T GROUP BY 学校) A INTO CURSOR T1
SELECT A.学校,CAST(B.XH AS C(6)) 序号,A.XH XH  FROM (SELECT 学校,RECNO() XH FROM T) A,T1 B WHERE A.学校==B.学校 INTO CURSOR TT READWRITE
UPDATE TT SET TT.序号=ALLTRIM(TT.序号)+PADL((SELECT COUNT(*)+1 FROM TT B WHERE TT.XH>B.XH AND TT.学校==B.学校),4,[0]) FROM TT
UPDATE T SET T.序号=TT.序号 WHERE RECNO([T])=TT.XH FROM TT
SELECT T
BROWSE

坚守VFP最后的阵地
2013-05-10 09:34
taifu945
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:80
帖 子:1545
专家分:3298
注 册:2012-7-6
收藏
得分:5 
回复 4楼 hu9jj
我也认为这个方法是比较完美的。
2013-05-10 10:00
sxydp
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2013-5-7
收藏
得分:0 
太麻烦了吧!!
2013-05-10 18:56
sxydp
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2013-5-7
收藏
得分:0 
我的vf6.0
2013-05-10 19:00
sxydp
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2013-5-7
收藏
得分:0 
有好的方法吗?
2013-05-18 17:28
快速回复:在vf中添加序号
数据加载中...
 
   



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

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