LOCAL ln1,lc1
lc1='l12341'
TRY
    IF VAL(lc1)#EVALUATE(lc1)
        lc1=.NULL.
    ENDIF
CATCH
    lc1=.NULL.
ENDTRY

IF ISNULL(lc1)
    =MESSAGEBOX('包含非数字字符！！')
ELSE
    =MESSAGEBOX('全数字字符！！')
ENDIF