主题：[求助]某列的内容加密，打开软件时该列显示是****，输入密码后显示内容10秒后，自动回复显示****

drawcell事件

If e.Col.Name = "第一列" Then '请改为实际列名
    If vars("暂停") = False Then '如果不是指定用户
        e.Text = "****" '则修改显示内容
    End If
End If

doubleclick事件

If e.Col.name = "第一列" Then
    e.cancel = True
    Dim pwd As String
    If InputPassWord(pwd,"提示","请输入密码:") Then
        If pwd = "123" Then
            vars("暂停") = True
            e.Table.Refresh
            Dim sdt As Date = Date.Now
            While Date.Now < sdt.AddSeconds(10)
                Application.DoEvents
            End While
            vars("暂停") = False
            e.Table.Refresh
        End If
    End If
End If