以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  取消后没返回窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60521)
--  作者：ljia361891839
--  发布时间：2014/11/26 10:43:00
--  取消后没返回窗口
If DataTables("表A").HasChanges Then
    If MessageBox.Show("未保存内容,是否保存?", "提示", MessageBoxButtons.yesnoCancel, MessageBoxIcon.Question) = DialogResult.no Then
        DataTables("表A").RejectChanges
    ElseIf  DialogResult.yes Then
        DataTables("表A").save
    Else
        e.cancel = True         
    End If
End If
我弄了个关闭窗口的提示~点取消之后没返回窗口，直接把窗口关闭回到了表A....
大神能帮我看看哪出错了吗？
--  作者：Bin
--  发布时间：2014/11/26 10:47:00
--  
没有执行到Else 语句吧.   按道理是会执行的,你调试一下看看  搞不定再上个例子
--  作者：有点甜
--  发布时间：2014/11/26 10:48:00
--  
 If DataTables("表A").HasChanges Then
    Dim result As Object = MessageBox.Show("未保存内容,是否保存?", "提示", MessageBoxButtons.yesnoCancel, MessageBoxIcon.Question)
    If result  = DialogResult.no Then
        DataTables("表A").RejectChanges
    ElseIf result = DialogResult.yes Then
        DataTables("表A").save
    Else
        e.cancel = True
    End If
End If
--  作者：ljia361891839
--  发布时间：2014/11/27 15:21:00
--  
哈~果然解决掉~感谢诸亲