| 以文本方式查看主题 - 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=43855) |
| -- 作者：lizengrenno1 -- 发布时间：2013/12/17 14:38:00 -- [求助]关于messagebox问题，求解 我想做个删除提示，按是删除，按否不删除。。。代码如下： 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
问题：我现在按“否”也自动把行删除了。。 |
| -- 作者：Bin -- 发布时间：2013/12/17 14:43:00 -- 你这个代码是写在哪里的? 如果是写在删除行事件,为什么还要添加一句Tables("yuanzhi").Current.Delete? 如果是写在按钮里,为什么要写 e.cancel=true?
|
| -- 作者：狐狸爸爸 -- 发布时间：2013/12/17 14:56:00 -- Dim Result As DialogResult Result = MessageBox.Show("确认要删除吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.Yes Then MessageBox.Show("已经删除.","提示") Tables("yuanzhi").Current.Delete Else MessageBox.Show("按错了,不删除.","提示") End If |