以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75515)

--  作者：xianzheng --  发布时间：2015/10/9 20:21:00 --  [求助] Dim frm As WinForm.Form frm = Forms("新增任务") If Tables("工作任务").Current Is Nothing Then     Dim Result As DialogResult     MessageBox.Show("没有添加添加任何内容,是否退出!","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)     If Result = DialogResult.Yes Then         frm.close()         \'e.Form.close     End If Else     Return End If If Tables("工作任务").Current IsNot Nothing Then     For Each r1 As Row In Tables("工作任务").Rows         r1.Save     Next     If Tables("工作任务明细").Current IsNot Nothing Then         For Each r As Row In Tables("工作任务明细").Rows             r.Save         Next     End If     frm.close() End If 红色这部分代码，不管是选择yes没有关闭，选择NO 也没有退出，不知道什么原因

--  作者：xianzheng --  发布时间：2015/10/9 20:22:00 --   红色这部分代码，择yes没有关闭，选择NO 也没有退出，不知道什么原因

--  作者：xianzheng --  发布时间：2015/10/9 20:23:00 --   其他代码反复试过了，都正常的

--  作者：大红袍 --  发布时间：2015/10/9 20:26:00 --   Dim Result As DialogResult = MessageBox.Show("没有添加添加任何内容,是否退出!","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

--  作者：xianzheng --  发布时间：2015/10/10 6:54:00 --   可以了，谢谢！