以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  死了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54738)
--  作者：seal51
--  发布时间：2014/8/3 23:44:00
--  死了

有个很简单的删除按钮代码

If MessageBox.Show("是否删除?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
    Tables("报关单.报关明细单").Current.Delete
End If

 

但点击删除按钮后项目就死机了， 按什么键都不起作用， 纳闷，老师给看看！
--  作者：zstk7333
--  发布时间：2014/8/3 23:58:00
--  
应该上传个例子
--  作者：Bin
--  发布时间：2014/8/4 8:30:00
--  
例子发上来看看,
--  作者：有点甜
--  发布时间：2014/8/4 9:10:00
--  

其他代码影响了

 

If MessageBox.Show("是否删除?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then

    SystemReady = False
    Tables("报关单.报关明细单").Current.Delete

    SystemReady = True
End If
--  作者：seal51
--  发布时间：2014/8/4 10:35:00
--  
谢谢老师们的回复！！！