专家坐堂-正确后，切换到表，否则提示错误，下面的代码，不知哪里出错？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  正确后，切换到表，否则提示错误，下面的代码，不知哪里出错？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133664)

--  作者：fengwenliuyan
--  发布时间：2019/4/17 19:03:00
--  正确后，切换到表，否则提示错误，下面的代码，不知哪里出错？

进入新的表"询价表2018后"之前，需要输入密码，正确后，切换到表"询价表2018后"，否则提示错误，下面的代码，不知哪里出错，该怎么改？

Dim pwd As String
If e.NewTableName = "询价表2018后" Then
If InputPassWord(pwd,"提示","请输入密码:") Then
If pwd <> "888" Then
Messagebox.Show("您输入的密码不正确!")
Else
MainTable = Tables("询价表2018后")
End If
Else
Messagebox.Show("您输入的密码不正确!")
End If
End If

--  作者：有点甜
--  发布时间：2019/4/17 20:26:00
--
Dim pwd As String
If e.NewTableName = "询价表2018后" Then
    If InputPassWord(pwd,"提示","请输入密码:") Then
        If pwd <> "888" Then
            Messagebox.Show("您输入的密码不正确!")
        End If
    Else
        Messagebox.Show("您输入的密码不正确!")
    End If
End If

--  作者：fengwenliuyan
--  发布时间：2019/4/17 20:28:00
--
好了，谢谢老师