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
lc1='l12341'
TRY
IF VAL(lc1)#EVALUATE(lc1)
lc1=.NULL.
ENDIF
CATCH
lc1=.NULL.
ENDTRY
IF ISNULL(lc1)
=MESSAGEBOX('包含非数字字符!!')
ELSE
=MESSAGEBOX('全数字字符!!')
ENDIF