以文本方式查看主题

-  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