如题，请各位老师不吝赐教！

请自己测试一下哈
aa = 123.1232
if TYPE([aa]) == "N"
   messagebox("数值型")
else
   messagebox("不是数值型")
endif

? s==TRANSFORM(VAL(s))

如果没小数用3楼的方法是最好的，否则可以用以下函数。
 LPARAMETER S
FOR i=0 TO 9
    s=STRTRAN(s,STR(i,1),'')
ENDFOR
return EMPTY(s) OR ALLTRIM(s)=='.'
如可能出现前导负号，最后一句再加上， OR ALLTRIM(s)=='-.' OR ALLTRIM(s)=='-'。可能有前导正号类似增加。

*!* 大家看下面的情况
*!* 1）
S1='A1'
S2=TRANSFORM(VAL(S1))
?S2 && 0

*!* 2）
S1='1A'
S2=TRANSFORM(VAL(S1))
?S2 && 1
所以，简单的方法，好像没办法的，只能选逐个字符过滤

A1 = "123"
IF EMPTY(CHRTRAN(A1, "012345789", ""))
    ?"A1 为空"
ENDIF

谢谢各位老师，我先试下。

*!*    A1 = '-.1232'  && -0.12
*!*    A1 = '-.123-2' && 0
*!*    A1 = '.1.232'  && 0
*!*    A1 = '123A2'   && 0

A1 = '1232'
?NumStr(A1)


FUNCTION NumStr(cStr)
IF SUBSTR(cStr,1,1) = "-" && 第一个"-"
   IF RAT('-',cStr) # 1   && 有多个"-"
      RETURN 0
   ELSE
      IF AT(".",cStr) # RAT(".",cStr)  && 有多个"."
         RETURN 0
      ELSE
         IF EMPTY(CHRTRAN(cStr, "-.012345789", ""))
            RETURN TRANSFORM(VAL(cStr))
         ELSE
            RETURN 0
         ENDIF   
      ENDIF
   ENDIF
ELSE
   IF AT(".",cStr) # RAT(".",cStr)  && 有多个"."
      RETURN 0
   ELSE
      IF EMPTY(CHRTRAN(cStr, ".012345789", ""))
         RETURN TRANSFORM(VAL(cStr))
      ELSE
         RETURN 0
      ENDIF   
   ENDIF
ENDIF
ENDFUNC

为了提高执行速度，用CHR代替STR
LPARAMETER S
FOR i=48 TO 57
    s=STRTRAN(s,chr(i),'')
ENDFOR
return len(s)=0 OR ALLTRIM(s)=='.' OR ALLTRIM(s)=='-.' OR ALLTRIM(s)=='-' OR ALLTRIM(s)=='+.' OR ALLTRIM(s)=='+'

谢谢各位老师指教！判断一个字符串是否数字型字符串，在EXCEL中，只要一个isnumber函数就解决了，现在用VFP还是比较麻烦。