VF表中如何批量填充序号(如1-1000手工填加工作量太大)

可以编写一个简单的小程序进行处理。

程序如下：

启动VF,在.状态下键入命令：modi

comm

xgbh，这样VF就会建立起xgbh.prg程序文件，然后你在xgbh.prg中键入以下内容：(假定你的数据库名为5.dbf,序号字段名是xh,格式为N型）

use

5

go

top

i=1

do

while

i<=1000

repl

xh

with

i

i=i+1

skip

enddo

（其中设定的最大值是1000，你可以自行修改。如果还有不明白的，欢迎提问。）

希望能帮助你解决此问题。

很简单呀。假设此字段名是“序号”，从1号记录开始添加。一个命令就可以了。

replace all 序号 with "201037010100073" +str(recno(),4)

如果你的序号只是按物理顺序添加，可以按楼上的：REPLACE ALL 序号 with recno()

如果想按某一索引顺序排列，比如按科室号排列，写一段小程序：

USE 人事

SET ORDE TO 科室号

I=1

SCAN

REPLACE 序号 WITH I

I=I+1

ENDSCAN

---