为啥vb提示找不到方法或数据成员

为什么vb提示找不到方法或数据成员
本帖最后由 bcrun 于 2013-09-11 12:08:20 编辑

Private Sub cmdOK_Click(Index As Integer)
    Dim sUserName As String
    Dim sUerPwd As String
    sUserName = Trim(txtUserName.Text)
    sUserPwd = Trim(txtUserPwd.Text)
    If sUserName = "" Then
        Call MsgBox("请输入用户名！", vbOKOnly, "登录提示")
        txUserName.SetFocus
        Exit Sub
    End If
    If SqlCom.State <> adStateOpen Then DBConn
Set SqlRS = ExecSQL("select count (*) num from Users where (username ='" + sUserName + "') and (userpwd = '" + sUserPwd + "')")
    If Not SqlRS.EOF Then
        If Int(Trim(SqlRS("num "))) >= 1 Then
            SqlRS.Close
            Set SqlRS = ExecSQL("select username,role from User where (username = '" + sUserName + "') and (userpwd ='" + sUserPwd + "')")
            If Not SqlRS.EOF Then
                MDIForm1.SetRightForRole (Trim(SqlRS("role")))
            Else
                MDIForm1.SetRightForRole ("2")
            End If
            Unload Me
            MDIForm1.Show
        Else
            Call MsgBox("用户名或密码错误，请重新登录！", vbOKOnly, "登录提示")
            txtUserName.SetFocus
            Exit Sub
        End If
    End If
End Sub

[解决办法]
代码中的SQL中的表名分别是Users与User，会不会是这个问题？
另外：建议不要将系统保留字作为表名与字段名使用，一定要用则需要加上方括号：
User-->[User]

[解决办法]
第几行出错，注明后，也许有人会认真帮你看看代码......
[解决办法]
txtUserName.Text
界面上有没有这个控件，它是不是一个文本框。

重启，重新编译下试试看。

[解决办法]
另外你的表名到底是User还是Users。
[解决办法]
确认 txtUserName 是一个 TextBox 控件，且不是控件数组（Index 属性为空）。