以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请问一下这个功能怎么实现的？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=168877)
--  作者：gihilli
--  发布时间：2021/5/25 15:43:00
--  [求助]请问一下这个功能怎么实现的？
有一个删除的按钮，点一下出现对话框，然后点击“是”才进行数据删除，点击“否”是取消并关闭对话框
请问一下这个功能要怎么实现的呢？
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2021/5/25 15:52:00
--  
参考：http://www.foxtable.com/webhelp/topics/0326.htm
--  作者：gihilli
--  发布时间：2021/5/25 15:56:00
--  
有实例代码可以看看吗？
--  作者：gihilli
--  发布时间：2021/5/25 15:57:00
--  
弹出的对话框代码已经写出来了，
但是在对话框中点击“是”才进行数据删除的这个代码应该怎么写呢？
--  作者：有点蓝
--  发布时间：2021/5/25 16:07:00
--  
比如

Dim Result As DialogResult
Result = MessageBox.Show("Visual Basic一点不难，是不是？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    tables("A").current.delete
Else
    MessageBox.Show("好好学习吧，你会认同这个看法的。","提示")
End if