以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [原创]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78202)
--  作者：云鑫物流
--  发布时间：2015/12/4 10:01:00
--  [原创]
要在一个表中要求某列写入数据后再修改就要输入密码如何实现
--  作者：大红袍
--  发布时间：2015/12/4 10:03:00
--  

 参考

 

http://www.foxtable.com/help/topics/2435.htm

 
--  作者：大红袍
--  发布时间：2015/12/4 10:06:00
--  

startEdit事件

 

If e.Row.isnull(e.Col.name) = False Then
    Dim pwd As String
    If InputPassWord(pwd,"提示","请输入密码:") Then
        If pwd <> "123" Then
            e.cancel = True
            msgbox("密码错误")
        End If
    Else
        e.cancel = True
    End If
End If
--  作者：客人
--  发布时间：2015/12/4 10:31:00
--  
只要求对某列才要输入密码
--  作者：大红袍
--  发布时间：2015/12/4 10:33:00
--  
If e.col.Name = "第一列" AndAlso e.Row.isnull(e.Col.name) = False Then
    Dim pwd As String
    If InputPassWord(pwd,"提示","请输入密码:") Then
        If pwd <> "123" Then
            e.cancel = True
            msgbox("密码错误")
        End If
    Else
        e.cancel = True
    End If
End If