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