用ucGUI建立了一个窗口和一个按键,程序跳不出来了,是什么原因
2016-09-21
展开全部
用ucGUI建立了一个窗口和一个按键,程序跳不出来了
sname = ComboBox1.Text
spwd = TextBox1.Text
If Application.WorksheetFunction.CountIf(Worksheets("用户权限").Range("a4:a30"), sname) = 0 Then
MsgBox "用户名凯纤不存在"
Else
If spwd <>态桐 Application.WorksheetFunction.VLookup(sname, Worksheets("用户权限").Range("a4:c30"帆孙坦), 2, False) Then
MsgBox "密码错误"
End If
End If
这是我的代码
但是每次执行到
If spwd <> Application.WorksheetFunction.VLookup(sname, Worksheets("用户权限").Range("a4:c30"), 2, False) Then
MsgBox "密码错误"
这句是总是报错
sname = ComboBox1.Text
spwd = TextBox1.Text
If Application.WorksheetFunction.CountIf(Worksheets("用户权限").Range("a4:a30"), sname) = 0 Then
MsgBox "用户名凯纤不存在"
Else
If spwd <>态桐 Application.WorksheetFunction.VLookup(sname, Worksheets("用户权限").Range("a4:c30"帆孙坦), 2, False) Then
MsgBox "密码错误"
End If
End If
这是我的代码
但是每次执行到
If spwd <> Application.WorksheetFunction.VLookup(sname, Worksheets("用户权限").Range("a4:c30"), 2, False) Then
MsgBox "密码错误"
这句是总是报错
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询