查人人中国名人网china shipping:vb问题?????
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/03 13:38:52
option explicit
public function ckecknumber(str temp as string)as boolean
check nmber=false
if isnumber (strtemp)=false then
msgbox"此处必须输入数字",vbInformation+vbOKonly
exit function
public function ckecknumber(str temp as string)as boolean
check nmber=false
if isnumber (strtemp)=false then
msgbox"此处必须输入数字",vbInformation+vbOKonly
exit function
Option Explicit
Public Function checknumber(strtemp As String) As Boolean
checknmber = False
If Not isnumber(strtemp) Then
MsgBox "此处必须输入数字", vbInformation + vbOKOnly
Exit Function
End Function
把“str temp”和"check nmber"之间的空格去掉即可。
还有就是你的函数名应该是“checknumber”吧？ 怎么你却打成“ckecknumber“
option explicit
public function ckecknumber(strtemp as integer)as boolean
checknmber=false
if isnumber(strtemp)=false then
msgbox"此处必须输入数字",vbInformation+vbOKonly
exit function