以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]指定某列删除数据需要输入密码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75596)
--  作者：15573428498
--  发布时间：2015/10/11 4:42:00
--  [求助]指定某列删除数据需要输入密码
求助]指定某列删除数据需要输入密码
--  作者：大红袍
--  发布时间：2015/10/11 10:05:00
--  

StartEdit事件

 

If e.Col.Name = "第一列" AndAlso e.Row.IsNull("第一列") = False Then
    Dim pwd As String
    e.cancel = True
    If InputPassWord(pwd,"提示","请输入密码:") Then
        If pwd = "123" Then
            e.cancel = False
        End If
    End If
End If
--  作者：ZHX88863808
--  发布时间：2015/10/11 12:18:00
--  

这里我也顺便请教一下老师：上面这段代码中指定的列的数据不可修改删除，如修改或删除必须要密码，但是如果把指定这个单元的一行全部删除，则就不需要密码，所以我认为删除行时 ，也需要输入密码，还请老师写个代码，谢谢！

 
--  作者：大红袍
--  发布时间：2015/10/11 12:28:00
--  
去写beforeDeleteDataRow事件
--  作者：ZHX88863808
--  发布时间：2015/10/11 12:34:00
--  
水平有限，请老师写一下代码，谢谢！
--  作者：大红袍
--  发布时间：2015/10/11 12:42:00
--  

汗

 

Dim pwd As String
    e.cancel = True
    If InputPassWord(pwd,"提示","请输入密码:") Then
        If pwd = "123" Then
            e.cancel = False
        End If
    End If
--  作者：ZHX88863808
--  发布时间：2015/10/11 12:47:00
--  
谢谢老师！