累加.
一个字符型字段,有中文,有数字,要找到最后一条的数字,再让它自动加1,该怎么做呢?
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是字符型的啊..