各位达人们，问题又来了：
我做的一个新增记录，想不用自己定义编号，让编号自动生成，也就是在编号最大的一个上加1。
交易编号是6位字符型。问题是运行表单时，如果数据表里没有记录，那么第一条记录是“0000 1”。
也就是那个“1”前面有个零不显示。。测试过不是空格。第二条也是“0000 2”如果存在很多记录，就会正常显示。
如“000011”“000232”请指教这是怎么回事？
程序如下
set exact on
select jyxx
set order to 交易编号
go bottom
i=val(alltrim(jyxx.交易编号))
if i<9 and i>1
i=i+1
k='00000'+str(i,1)
else
if i<99
i=i+1
k='0000'+str(i,2)
else
if i<999
i=i+1
k='000'+str(i,3)
else
if i<9999
i=i+1
k='00'+str(i,4)
else
if i<99999
i=i+1
k='0'+str(i,5)
else
if i<999999
i=i+1
k=str(i,6)
else
k='000001'
endif
endif
endif
endif
endif
endif
thisform.交易编号.value=alltrim(k)

把第一个的i&gt;1去掉就可以了

把第一个的and i&gt;1去掉就可以了

将
if i<9 and i>1
改为
if i<=9 and i>=1

set exact on
select jyxx
set order to 交易编号
go bottom
if reccount()=0
k='000001'
else
i=val(alltrim(jyxx.交易编号))
i=i+1
k=right('000000'-str(i),6)
endif

SELECT JYXX
CALCULATE MAX(VAL(交易编号)) TO I
K=CHRTRAN(STR(I+1,6)," ","0")
THISFORM.交易编号.VALUE=K

终究是老虎,厉害,两行搞定.
以前学的全是繁琐哲学.太笨了.
看你的贴子,就是开思路.
我的软件就按这样改进了,谢谢了.
先祝贺你了.

[此贴子已经被作者于2006-6-10 21:27:57编辑过]

我是这样想的:
(1)有时候,人家辛辛苦苦做好了程序,其实仅仅是一点点的小错误,把它改正即可,那可是人家的辛苦得来的.因此,我在4楼更正楼主的小失误.
(2)进一步,假如还需要代码更少,或者效率更高的代码,则只得帮人家改写程序了.所以,我在6楼用了更短的代码实现.
谢谢wzxc!大家相互学习.

没用啊，依然是0000 1，而且编号一直是0000 1，不会住上加，也就是说表里的记录只有一个一样的编号0000 1
确实搞不懂，请教

要增加记录的话，必须使用类似APPEND BLANK命令
CALCULATE MAX(VAL(编号)) TO I
K=CHRTRAN(STR(I+1,6)," ","0")
APPEND BLANK
REPLACE 编号 WITH K