以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何防止单元格内数据误删？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130572)
--  作者：chh2321
--  发布时间：2019/1/25 15:19:00
--  [求助]如何防止单元格内数据误删？
老师，如果每一列单元格内已有数据，如何防止按delete键全部删除，但是可以通过Backspace键逐字删除？
--  作者：有点甜
--  发布时间：2019/1/25 15:39:00
--  

禁用delete键。

 

keydown事件，写代码

 

If e.keycode = keys.delete Then

    e.cancel = true

end If
--  作者：chh2321
--  发布时间：2019/1/25 19:36:00
--  
If e.keycode = keys.delete Then
    Dim del As DialogResult
    del = MessageBox.Show("你确认要删除数据吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If del = DialogResult.Yes Then
        Return
    Else
        e.cancel = True
    End If
End If
该段代码不能判断单元格内是否有数据。
如果有数据就弹出提示，没有数据就不弹出对话框，如何书写代码？  谢谢老师！
--  作者：有点蓝
--  发布时间：2019/1/25 20:16:00
--  
If e.keycode = keys.delete AndAlso e.Table.current.Isnull( e.Table.Colsel) = False Then
……