社区 › VB › 为什么不对呢？谁帮我瞧瞧

yueyaer 发表于 2005-12-4 10:29:00

为什么不对呢？谁帮我瞧瞧

Private Sub CommandButton56_Click()
Dim T As Double
T = UserForm3.TextBoxT.Text
Select Case UserForm3.ListBoxM.Text
Case "Q235A"
If T > 0 And T
end select
end sub
总是出现Else没有 If　的错误提示，到底是哪里错了呢？

songzhi 发表于 2005-12-4 10:38:00

这样写：
Private Sub CommandButton56_Click()
Dim T As Double
T = UserForm3.TextBoxT.Text

Select Case UserForm3.ListBoxM.Text
Case "Q235A"
If T > 0 And T
   UserForm1.Show
Else
MsgBox "超出温度限制，请选择其他法兰"
End If
end select
end sub
then后面写了语句这一行就结束了，后面就不能用End if了。

yueyaer 发表于 2005-12-4 10:43:00

十分感谢，我对ＶＢ语句还是不熟，要加强了，呵呵

查看完整版本: 为什么不对呢？谁帮我瞧瞧