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

hkjtzz的值是a中123456A中，运行后bz的值是"不包含数字!" ，不知代码错在哪了？