以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何设置才能在打开表前提示输入密码，密码不对不让打开  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=124145)
--  作者：wzm007008
--  发布时间：2018/8/31 11:32:00
--  [求助]如何设置才能在打开表前提示输入密码，密码不对不让打开
如何设置才能在打开表前提示输入密码，密码不对不让打开

设计了一个项目，里面有几个表不想别人随便点击打开看内容，需输入密码，不知在哪里设置

代码怎么写
--  作者：有点甜
--  发布时间：2018/8/31 11:35:00
--  

maintablechanging事件

 

Select Case e.NewTableName
    Case "表C", "表B"
        Dim pwd As String
        e.cancel = True
        If InputPassWord(pwd,"提示","请输入密码:") Then
            If pwd = "123456" Then
                e.cancel = False
            End If
        End If
       
End Select
--  作者：wzm007008
--  发布时间：2018/8/31 16:28:00
--  粘贴后改表名报错
报错如下：
e是“private",因此它在此上下文中不可访问
错误代码：select case e.new.tableName
--  作者：有点甜
--  发布时间：2018/8/31 17:54:00
--  

写到 maintablechanging事件

 

http://www.foxtable.com/webhelp/scr/1445.htm

 
--  作者：wzm007008
--  发布时间：2018/8/31 22:07:00
--  谢谢版主，已经调好，我写错位置了
谢谢版主，我写到位置了