以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]删除按钮代码如下：请帮我看看哪里有问题？为什么删除不了。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60217)
--  作者：liujywwy
--  发布时间：2014/11/20 12:28:00
--  [求助]删除按钮代码如下：请帮我看看哪里有问题？为什么删除不了。

删除按钮代码如下：请帮我看看哪里有问题？为什么删除不了。

Dim r As Row = Tables("技术支持信息表").Current
r.locked = False
If MessageBox.Show("你确定要删除吗","友情提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.OK Then
    r.Delete
    Tables("技术支持信息表").save
Else
    r.locked = True
    Tables("技术支持信息表").Current.Save()
End If

 

但是直接改为下面的代码却可以删除，为啥呢？加了一个mesbox就不执行了还是怎么回事？

Dim r As Row = Tables("技术支持信息表").Current
r.locked = False
 r.Delete

[此贴子已经被作者于2014-11-20 12:46:29编辑过]
--  作者：有点甜
--  发布时间：2014/11/20 14:31:00
--  
If MessageBox.Show("你确定要删除吗","友情提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then