以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关闭保存问题~~在线等  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63220)
--  作者：yuzhoublack
--  发布时间：2015/1/16 12:51:00
--  关闭保存问题~~在线等
 If MessageBox.Show("是否保存?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
    If DataTables("库存表").HasChanges = True Then
        DataTables("库存表").Save
    Else Forms("库存表").close
    End If
End If
Forms("库存表").close


上述代码有无问题？
如何解决？

我想要的是，点击按钮，出现对话框，是否保存，确认后，如果库存表有变动则保存并关闭，如果点的是取消（没有确认），则不管库存表是否有变动 都直接关闭。
--  作者：yuzhoublack
--  发布时间：2015/1/16 12:58:00
--  
不会没有大神回复吧，马上都快沉了
--  作者：黄训良
--  发布时间：2015/1/16 13:36:00
--  
实际看保存效果是否达到自己的目的。
--  作者：lsy
--  发布时间：2015/1/16 13:47:00
--  
If DataTables("水果").HasChanges Then
    If MessageBox.Show("是否保存?","确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
        DataTables("水果").Save
    Else
        DataTables("水果").RejectChanges
    End If
End If
--  作者：yuzhoublack
--  发布时间：2015/1/16 13:54:00
--  
非常感谢！！