[求助]关于messagebox问题,求解 Post By:2013/12/17 14:38: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