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

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

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

只看楼主

sylknb

等　级：贵宾
威　望：14
帖　子：1519
专家分：174
注　册：2006-6-3
结帖率：79.3%

楼主

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

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

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

5199
请行家指教。多谢了。

2008-01-05 16:49

hu9jj

来　自：红土地
等　级：贵宾
威　望：396
帖　子：11713
专家分：43267
注　册：2006-5-13

第 2 楼

得分:0

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

活到老，学到老！ http://www. 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
帖　子：1519
专家分：174
注　册：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

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：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

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