一个字符型字段,有中文,有数字,要找到最后一条的数字,再让它自动加1,该怎么做呢?

其实就是自动增加编号的问题。只有思路，没有代码：
1、用SUBSTR把字段值分成两段，一段为字符，一段为数字。
2、把数字用VAL转换成数值后加1。
3、把加1后的数值用STR转换成字符，再与字符部分连接。

[此贴子已经被作者于2006-9-21 11:42:46编辑过]

只要数字部分累加就行。但是是找到表中最后一条记录的值再加1啊。。

版主可能理解错我的意思了。。我的不是一条记录中又包含字符和数字。是多条记录中，如第一条该字段的值是数字，下一条该记录的值是中文，不是混一起的。。可能我一开始描述错了，不好意思。。

GO BOTTOM
DO WHILE !BOF()
IF ISDIGIT(字段)
EXIT
ENDIF
SKIP -1
ENDDO
IF !BOF()
nNewNum=PADL(VAL(字段)+1,LEN(字段),"0")
ELSE
nNewNum=PADL(1,LEN(字段),"0")
ENDIF

Select accounts
IF NOT EMPTY(thisform.txtaccu.Value)
Locate For ALLTRIM(accu)==alltr(thisform.txtaccu.Value)
If Found()

thisform.txtno_z.Value=PADL(VAL(zno)+1,LEN(zno),"0")

thisform.txtno_c.Value=PADL(VAL(cno)+1,LEN(cno),"0")

ELSE
MESSAGEBOX("无此账号!",48,"警告")
RETURN 0
ENDIF
ENDIF
thisform.Refresh
我这样做竟然有小数点的,什么原因呢???zno是字符型的啊..

没有注意到，改用PADL(ALLTRIM(STR(VAL(CNO)+1)),5,"0")