单元格的密码保护

假定某列内容如果为空,则允许输入,如果不为空,则需要先双击此列,输入一个密码后,才能修改此列的内容。

设计步骤:

1、设置表的PrePareEdit事件代码为:

If e.Col.Name = "某列" Then  '如果编辑的是某列
    If e.Row.IsNull("某列") = False Then '而且某列已经有内容
       e.Cancel = True '则取消编辑
    End
If

End
If

这样一旦此列已经有内容,则无法以常规方式直接修改此列的内容。

2、设置表的DoubleClick事件代码为:

If e.col.Name = "某列" Then '如果编辑的是某列
    Dim psd As String
    InputValue(psd,"验证","请输入密码") '输入密码
    If psd = "正确的密码" Then '如果密码正确
        e.Table.StartEditing '强行进入编辑状态
    Else
        Messagebox.Show("密码错误","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End
If

End
If


本页地址:http://www.foxtable.com/webhelp/topics/2617.htm