以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于messagebox问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43827)
--  作者：lizengrenno1
--  发布时间：2013/12/16 16:54:00
--  [求助]关于messagebox问题

我箱做个删除提示，按是删除，按否，不删除。为什么我按是和否都删除信息呢。代码如下

 

Dim Result As DialogResult
 Result = MessageBox.Show("确认要删除吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
 If Result = DialogResult.Yes  Then
     MessageBox.Show("已经删除.","提示")
Else
     MessageBox.Show("按错了,不删除.","提示")
End If
Tables("yuanzhi").Current.Delete
--  作者：sloyy
--  发布时间：2013/12/16 16:59:00
--  

Dim Result As DialogResult
 Result = MessageBox.Show("确认要删除吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
 If Result = DialogResult.Yes  Then

     Tables("yuanzhi").Current.Delete
     MessageBox.Show("已经删除.","提示")
Else
     MessageBox.Show("按错了,不删除.","提示")
End If
--  作者：Bin
--  发布时间：2013/12/16 16:59:00
--  
如果你是放在删除行事件中,你应该在按否的情况下,取消删除.

Dim Result As DialogResult
 Result = MessageBox.Show("确认要删除吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
 If Result = DialogResult.Yes  Then
     MessageBox.Show("已经删除.","提示")
Else
     MessageBox.Show("按错了,不删除.","提示")
     e.cancel=true
End If
Tables("yuanzhi").Current.Delete