VFP编号生成程序

来源：百度知道 编辑：UC知道 时间：2024/06/05 01:32:31
VFP如何编写程序，可以在已有记录的表中自动生成编号
我已经在网上搜索过了，试过好几种了，都是不行。

数字累加
然后转字符输出
存储到数据表中作为编号
数字输出么涉及到一位数二位数三位数
用DO CASE 区分下字符串累加的方式就OK了
此乃方法

假设编码是字符型字段，C(8)
calc max(编码) to abcd
if alltrim(abcd)+"a"=="a"
abcd="00000001"
****仅当一个编码也不存在时，从“00000001”开始
else
abcd=str(val(abcd)+1,8)
endif
abcd=subs("000000000",1,8-len(alltrim(abcd)))+alltrim(abcd)
*****abcd就是你要的编码