以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [原创]对话框怎么关闭独立窗口？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=37901)
--  作者：kunge
--  发布时间：2013/7/14 20:40:00
--  [原创]对话框怎么关闭独立窗口？
在录入订单是，点击关闭是，提示对话框“是否保存订单？”点击是，保存订单，并关闭订单录入窗口，点击否，删除此行，关闭订单窗口，订单录入窗口，我用的是独立窗口,可以实现这样吗？该不该用对话框？窗口的关闭前代码怎么写？
--  作者：sloyy
--  发布时间：2013/7/14 21:11:00
--  

Dim Result As DialogResult
Result = MessageBox.Show("是否保存订单？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    currenttable.current.save

    forms("订单录入窗").close

Else
    currenttable.current.delete

    forms("订单录入窗").close

End if