UC知道VB中关于IF循环的问题
来源：百度知道 编辑：UC知道 时间：2024/05/24 06:18:44
Private Sub Command1_Click()
If Trim(Text1(0).Text) <> "" And Trim(Text1(1).Text) <> "" Then
Data1.RecordSource = "select * from 用户信息 where 用户名 ='" & Text1(0).Text & "'"
Data1.Refresh
If Data1.Recordset.Fields("密码") = Text1(1).Text Then
MsgBox "登陆成功！"
Unload Me
End If
Else
a = MsgBox("用户名或密码输入错误，请重试！", vbOKCancel, "输入提示框！")
If a = vbOK Then
Text1(0) = ""
Text1(0).SetFocus
Text1(1) = ""
End If
End If
End Sub
程序能运行 但是在UNLOAD ME 后添加语句
If Text1(0) = "admin" Then Form2.Show
End If
就报错说中间的ELSE没有IF 这是为什么 感觉没错啊！？？？
If Trim(Text1(0).Text) <> "" And Trim(Text1(1).Text) <> "" Then
Data1.RecordSource = "select * from 用户信息 where 用户名 ='" & Text1(0).Text & "'"
Data1.Refresh
If Data1.Recordset.Fields("密码") = Text1(1).Text Then
MsgBox "登陆成功！"
Unload Me
End If
Else
a = MsgBox("用户名或密码输入错误，请重试！", vbOKCancel, "输入提示框！")
If a = vbOK Then
Text1(0) = ""
Text1(0).SetFocus
Text1(1) = ""
End If
End If
End Sub
程序能运行 但是在UNLOAD ME 后添加语句
If Text1(0) = "admin" Then Form2.Show
End If
就报错说中间的ELSE没有IF 这是为什么 感觉没错啊！？？？
If Text1(0) = "admin" Then Form2.Show
End If
在上一句，已经构成一个完整的IF语句了
不需要加下面的那个end if了
去掉end if 单行的if条件句不需要end if
只有分行写才需要，要么就是
If Text1(0) = "admin" Then
Form2.Show
End If
If Text1(0) = "admin" Then Form2.Show
End If
【如果If XXX Then后面不换行紧跟一个语句或者多个语句（用:连接） 那么是不用写End If的。】
楼上正解。单行 IF 语句不需要 EndIf