function checknumber(data,lbl){
var tmp ;
if (data == "") return true;

var re = /^[\-\+]?([0-9]\d*|0|[1-9]\d{0,2}(,\d{3})*)(\.\d+)?$/;   // By Dennis set 04 OK!
if (re.test(data)){
return true;
}
return false;
}

解决方案 »

  1.   

    function isInteger(para)
           on error resume next
           dim str
           dim l,i
           if isNUll(para) then 
              isInteger=false
              exit function
           end if
           str=cstr(para)
           if trim(str)="" then
              isInteger=false
              exit function
           end if
           l=len(str)
           for i=1 to l
               if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
                  isInteger=false 
                  exit function
               end if
           next
           isInteger=true
           if err.number<>0 then err.clear
       end function
      

  2.   

    只要字符串里所有的Ascii都在48-57之间,这个字符串就是数字。