以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关闭窗口是为什么会连项目都关闭了  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31772)
--  作者：nand
--  发布时间：2013/4/20 10:53:00
--  关闭窗口是为什么会连项目都关闭了

如上说述

 

我增加一个窗体，在窗体

BeforeClose

事件中写入代码：

Dim s As DataTable = DataTables("标准产品")
With s
    If .HasChanges Then
        If MessageBox.Show("您已修改过此内容,是否进行保存?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
            .RejectChanges()
            .DeleteFor("图号 is null")
            .Save
            Forms("添加图号").Close
            Forms("标准产品").Open
        Else
            .RejectChanges()
            .DeleteFor("图号 is null")
            Forms("添加图号").Close
            Forms("标准产品").Open
        End If
    Else
        Forms("添加图号").Close
        Forms("标准产品").Open
    End If
End With

 

代码可以执行，但执行完代码手为什么直接退出了项目？试了5次结果一样，特向师傅、师兄们求解！
--  作者：nand
--  发布时间：2013/4/20 10:54:00
--  
其实以上代码有错误地方，我重复了撤消表，等会我改正
--  作者：Bin
--  发布时间：2013/4/20 10:55:00
--  
项目文件发出来.
--  作者：菲舍尔
--  发布时间：2013/4/21 22:31:00
--  

很明显的，你的代码陷入死循环了