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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 正确后，切换到表，否则提示错误，下面的代码，不知哪里出错？

共有1770人关注过本帖树形打印复制链接主题：正确后，切换到表，否则提示错误，下面的代码，不知哪里出错？

fengwenliuyan

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00

正确后，切换到表，否则提示错误，下面的代码，不知哪里出错？ 发帖心情

Post By：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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00

Post By：2019/4/17 20:28:00 [只看该作者]

好了，谢谢老师

下一主题 >> << 上一主题

主题：正确后，切换到表，否则提示错误，下面的代码，不知哪里出错？