急求：以一空数据表中字段为序号(字符型)，如何能自动产生流水号 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 急求：以一空数据表中字段为序号(字符型)，如何能自动产生流水号

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 2435 人关注过本帖

标题：急求：以一空数据表中字段为序号(字符型)，如何能自动产生流水号

只看楼主加入收藏

sylknb

等　级：贵宾
威　望：14
帖　子：1529
专家分：180
注　册：2006-6-3
结帖率：79.38%

楼主

问题点数：0 回复次数：6

急求：以一空数据表中字段为序号(字符型)，如何能自动产生流水号

有一空数据表，内有序号的字段(字符型)例如初始值为‘5101’，最终值为’5199‘。如何用程序自动一次必加上：
5101
5102

5199
请行家指教。多谢了。

2008-01-05 16:49

hu9jj

来　自：红土地
等　级：贵宾
威　望：400
帖　子：11787
专家分：43421
注　册：2006-5-13

第 2 楼

得分:0

取最大的编号，将其转换成数值型变量，加一后再转换回字符型变量，并赋值到新的记录。

活到老，学到老！http://www.（该域名已经被ISP盗卖了）E-mail:hu-jj@

2008-01-05 21:15

啸凡

等　级：贵宾
威　望：45
帖　子：1356
专家分：885
注　册：2006-2-22

第 3 楼

得分:0

另一方法，做一个循环。
LOCAL clNO
FOR J=5101 TO 5199
clNO=STR(J,1,4)
*如果要存入表中的话
* APPAND BLANK
*GO BOTTOM
*REPLACE 字段名 WITH clNO
ENDFOR
如果需要前置‘0’的话，要计算一下字符串长度，不足的就加前置‘0’

两人行已有我师……

2008-01-06 21:09

Tiger5392

等　级：贵宾
威　望：88
帖　子：2775
专家分：2237
注　册：2006-5-17

第 4 楼

得分:0

Replace All 序号 With Str(5100+Recno(),4)

感言：学以致用。博客：http://www./blog/user14/65009/index.shtml email：Tiger5392@

2008-01-07 13:41

sylknb

等　级：贵宾
威　望：14
帖　子：1529
专家分：180
注　册：2006-6-3

第 5 楼

得分:0

我试了一下，只能替换一个，不知为什么？

2008-01-10 09:48

Tiger5392

等　级：贵宾
威　望：88
帖　子：2775
专家分：2237
注　册：2006-5-17

第 6 楼

得分:0

Replace All ... 可以替换满足条件的全部记录，若没有条件的话，替换表中的全部记录。

感言：学以致用。博客：http://www./blog/user14/65009/index.shtml email：Tiger5392@

2008-01-10 22:09

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9810
专家分：26997
注　册：2012-2-5

第 7 楼

得分:0

程序代码：

CREATE CURSOR TABNAME (XH C(4))
FOR I=5101 TO 5199
    INSERT INTO TABNAME VALUES (TRANSFORM(I))
ENDFOR
BROWSE

坚守VFP最后的阵地

2014-03-23 11:20

快速回复：急求：以一空数据表中字段为序号(字符型)，如何能自动产生流水号