以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]趁程老师在 我再问一个问题关于窗口中按钮  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=17370)
--  作者：a9858
--  发布时间：2012/3/11 14:34:00
--  [求助]趁程老师在 我再问一个问题关于窗口中按钮
我在窗口的‘保存’按钮中加一个提示，当我按保存按钮时，会跳出一个窗口或什么的，提示“确定保存吗”、有两个选项1、是  2、否  怎么实现呢？
--  作者：hwd1987
--  发布时间：2012/3/11 15:44:00
--  

butten1_click

Dim Result As DialogResult
Result = MessageBox.Show("

确定要保存吗？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
   For Each dt As DataTable In DataTables
        dt.Save()
   Next 

End if
--  作者：程兴刚
--  发布时间：2012/3/11 17:44:00
--  

呵呵，恰巧我不在，这样也可以：

 

If MessageBox.Show("确定要保存吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = 6
    Syscmd.Project.Save()
End If
--  作者：a9858
--  发布时间：2012/3/13 21:08:00
--  
都是高手啊，谢谢了
--  作者：jolon
--  发布时间：2012/3/13 21:28:00
--  
果断收藏
--  作者：布莱克朱
--  发布时间：2012/3/13 21:42:00
--  
程老大,老大说了,一般情况下不要用系统的保存命令,那个是可以保存设置的.
--  作者：程兴刚
--  发布时间：2012/3/13 22:13:00
--  
循环保存各表，用系统命令保存差别不会很大！