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的值是"不包含数字!" ，不知代码错在哪了？

变量FIELDNAME的值大概是“123456A”，在前6次循环中没有对表进行任何操作（因为不符合不是数字的条件），在第7次操作中取得变量中的值是“A”，当然符合IF判断的内容，所以执行了REPL语句，bz的值当然就是“不包含数字”啰。

看了楼主的另外一个贴子才明白楼主的需求。建议楼主以后不要重复发贴问同一问题，浪费自己和别人的时间。
将代码作如下修改，应该可以解决问题：
set talk off
use aaa
store hkjtzz to FIELDNAME
FOR I=1 TO LEN(FIELDNAME)
    IF ISDIGIT(SUBSTRC(FIELDNAME,I,1))
        repl bz with "" &&或者为repl bz with "包含数字"
        exit
    ENDIF
    repl bz with "不包含数字!"  
ENDFOR
use

其实楼主的这段程序只要画一个流程图就很容易明白是错在哪儿的。现在面向对象的编程，可能很少有人会去画流程图了。

set talk off
use aaa
CSTR="" &&用于保存字段中的数字
SCAN
     FOR I=1 TO LEN(hkjtzz)
         IF ISDIGIT(SUBSTRC(hkjtzz,I,1))
            CSTR=CSTR+SUBSTRC(hkjtzz,I,1) &&将数字保存在CSTR中
            EXIT &&只要字段中含有数字，就退出FOR ENDFOR循环
         ENDIF
     ENDFOR
     IF LEN(CSTR)=0
        repl bz with "不包含数字!"
     ENDFOR
     CSTR=""
ENDSCAN
use

从你的代码看，应该是判断表中字段(hkjtzz)的记录中是否不包含数字，如果保证代码正确执行，应该进行如上修改。

如果想使代码精练，可以参考下帖：
https://bbs.bccn.net/thread-366911-1-1.html

SET TALK OFF
USE AAA
SCAN
     If Len(ALLTRIM(hkjtzz)) = Len(Chrtran(ALLTRIM(hkjtzz),'0123456789',''))
        repl bz with "不包含数字!"
     ELSE
        repl bz with "包含数字!"
     Endif
ENDSCAN
USE

这个问题可以延伸为，变量中是否包含单字节、双字节字符

[ 本帖最后由 sdta 于 2012-5-7 13:29 编辑 ]