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
加好友 
发短信
Post By：2013/12/16 16:59:00 [显示全部帖子]
