在文本框钟输入数据时,一般要进行验证:
Private Sub Text1_LostFocus()
If Text1 <> "" And Not IsNumeric(Text1) Then
Text1 = ""
Text1.SetFocus
Else
x = Text1
End If
End Sub
我还是搞不清楚这到底有什么意义,因为即使有这一段代码
我在输入数据得时候,如果输入错误或是没有输入得时候,系
统仍然会提示有错误,说是类型不匹配,需要调试,是不是这里
还要加一些其他得代码来使得输入正确呢?如:使用msgbox.

Private Sub Text1_LostFocus()
If Text1 <> "" And Not IsNumeric(Text1) Then
Text1 = ""
Text1.SetFocus
Else
x = Text1
End If
End Sub


text1是什么?

应该是
Private Sub Text1_LostFocus()
If Text1.text <> "" And Not IsNumeric(Text1.text) Then
Text1.text = ""
Text1.SetFocus
Else
x = Text1.text
End If
End Sub

应该是这样吧?

都没有引用属性，肯定错啦
Private Sub Text1_LostFocus()
If Text1.Text <> "" And Not IsNumeric(Text1.Text) Then
Text1.Text = ""
Text1.SetFocus
Else
x = Text1.Text
End If
End Sub

text1.text里东西根本就不是numeric