请高手指教这段代码错在哪?
set talk offuse 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的值是"不包含数字!" ,不知代码错在哪了?
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