- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]删除对话框 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=33488)
-- 发布时间：2013/5/19 12:06:00
-- [求助]删除对话框
删除对话框，这个不对呢？
Tables("教师信息").Current.Delete
MessageBox.Show("是否删除该条数据", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-- 发布时间：2013/5/19 13:57:00
--
Dim Result As DialogResult
Result = MessageBox.Show("Visual Basic一點不難，是不是？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
MessageBox.Show("不錯，說明你已經認真學習了。","提示")
Else
MessageBox.Show("好好學習吧，你會認同這個看法的。","提示")
End if
-- 发布时间：2013/5/19 14:12:00
--
Tables("教师信息").Current.Delete
如何执行这个
-- 发布时间：2013/5/19 14:17:00
--
這是幫助中拷來的,看看幫助吧,不然,就是再大的奶爸,也供不上
-- 发布时间：2013/5/19 15:26:00
--
Dim Result As DialogResult
Result = MessageBox.Show("Visual Basic一點不難，是不是？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Tables("教师信息").Current.Delete
End if
-- 发布时间：2013/5/19 19:28:00
--
谢谢 don
-- 发布时间：2013/5/19 22:08:00
--
if MessageBox.Show("Visual Basic一點不難，是不是？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = true then
Tables("教师信息").Current.Delete
End
if
