以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关闭窗口前用户按下了增加按钮  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48830)

--  作者:chnfo
--  发布时间:2014/4/6 19:55:00
--  [求助]关闭窗口前用户按下了增加按钮
本意:
因为buttonAdd是用于将SQLTable里的部分数据添加到其它表中,所以在关闭窗口前希望提示用户保存数据
1、如果用户希望保存数据,则相当于按下了buttonAdd按钮,然后关闭窗口
2、如果用户不希望保存数据,则不执行buttonAdd按钮操作,直接关闭窗口。

如何做呢?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:如何在窗口关闭前添加了数据.rar


这样的代码明显测试有问题,但是问题在哪里呢?
Dim Result As DialogResult
Result = MessageBox.Show("关闭窗口前要保存数据吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Dim btn As WinForm.Button = e.Form.Controls("ButtonAdd")
    btn.PerformClick()
Else
    e.Form.Close()
End If

[此贴子已经被作者于2014-4-6 20:00:53编辑过]

--  作者:有点甜
--  发布时间:2014/4/7 9:29:00
--  

是编写beforeclose事件么?

 

Dim Result As DialogResult
Result = MessageBox.Show("关闭窗口前要保存数据吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Dim btn As WinForm.Button = e.Form.Controls("ButtonAdd")
    btn.PerformClick()
End If