VFp中自动填充序列

来源：百度知道 编辑：UC知道 时间：2024/06/15 12:26:41
我想填充一个序列,如"200910000"到"200910100".其中,前6个字符不变,只是后三个从000填充到100.请问大家有什么好办法吗?
只是在数据库表中填充,毕业如说我有一个数据库表包括字段有xm,xb,zkzh,sfzh,xh.我想实现上述方法!!!

你是填充到表里还是填充到何处？不给这个条件怎么给你回答呢。
如果要让标签控件显示：
a=200910000
do while a<=200910099
a=a+1
a=STR(a)
thisform.label1.Caption =a
WAIT TIMEOUT 1
a=VAL(a)
ENDDO
如果要填充到表格：比如abc.dbf,字段名是aa
a=200910000
do while a<=200910100
USE abc
APPEND BLANK
replace aa WITH a
use
a=a+1
ENDDO
完全可以实现，本人已经试过。

用DO While循环或FOR循环实现。