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

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

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