主题：[求助]趁程老师在 我再问一个问题关于窗口中按钮

我在窗口的‘保存’按钮中加一个提示，当我按保存按钮时，会跳出一个窗口或什么的，提示“确定保存吗”、有两个选项1、是  2、否  怎么实现呢？

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

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

 

If MessageBox.Show("确定要保存吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = 6
    Syscmd.Project.Save()
End If

都是高手啊，谢谢了

果断收藏

程老大,老大说了,一般情况下不要用系统的保存命令,那个是可以保存设置的.

循环保存各表，用系统命令保存差别不会很大！