请问如何判断某个字段中含有数字？如qeqrqr123eqwretr

FIELDNAME="a中123456"
FOR I=1 TO LEN(FIELDNAME)
    IF ISDIGIT(SUBSTRC(FIELDNAME,I,1))
       MESSAGEBOX("该字段内容含有数字"+SUBSTRC(FIELDNAME,I,1))
    ENDIF
ENDFOR

[ 本帖最后由 sdta 于 2012-5-4 14:30 编辑 ]

lc = 'asdf5'
If Len(lc) != Len(Chrtran(lc,'0123456789',''))
    Messagebox("有数字")
Endif

收到的鲜花

• hu9jj 于 2012-05-05 07:27 送鲜花  10朵   附言：我很赞同

还是有问题，比如最后一个字符不是数字而是普通的字符时就出现错误的结果，如a中123456a.

FIELDNAME="a中123456A中"
CSTR=""
FOR I=1 TO LEN(FIELDNAME)
    IF ISDIGIT(SUBSTRC(FIELDNAME,I,1))
       CSTR=CSTR+SUBSTRC(FIELDNAME,I,1)
    ENDIF
ENDFOR
?CSTR

VFP60、VFP90下运行正常
不知楼主是如何运行这段代码的。

[ 本帖最后由 lygcw9603 于 2012-5-7 00:39 编辑 ]

set talk off
use aaa
store hkjtzz to FIELDNAME  *******hkjtzz="a中123456A中"
FOR I=1 TO LEN(FIELDNAME)
    IF !ISDIGIT(SUBSTRC(FIELDNAME,I,1))
      repl bz with "不包含数字!"  
    ENDIF
ENDFOR
use

结果bz的值是不包含数字。

FOR ENDFOR读取的是第几条记录？默认情况下应该是第一记录。

可以用CHRTRAN()或CHRTRANC()替换掉字符串中的数字，再判断替换后的字符串的长度与原字符串的长度是否相等，来判断原字符串中是否包含有数字。