以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  判断保存  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100493)
--  作者：qaz
--  发布时间：2017/5/12 11:44:00
--  判断保存
关闭文件时，提示是否保存，这个是什么语句做到的？
--  作者：有点色
--  发布时间：2017/5/12 11:53:00
--  

 比如代码

 

If DataTables("表A").HasChanges Then
    Dim Result As DialogResult
    Result = MessageBox.Show("是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        DataTables("表A").save
    Else
        msgbox("不保存")
    End If
End If
--  作者：qaz
--  发布时间：2017/5/12 17:36:00
--  
好的，表比较多，可以一次判断所有表吗？
--  作者：有点色
--  发布时间：2017/5/12 17:39:00
--  
For Each dt As DataTable In DataTables
    If dt.HasChanges Then
        Dim Result As DialogResult
        Result = MessageBox.Show("是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            DataTables.save
            Exit For
        End If
    End If
Next
--  作者：qaz
--  发布时间：2017/5/12 18:01:00
--  
好的，谢谢