以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  BeforeClose  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99095)
--  作者：huhu
--  发布时间：2017/4/12 17:17:00
--  BeforeClose
Dim tg As WinForm.RadioButton = e.Form.Controls("通过")
Dim wg As WinForm.RadioButton = e.Form.Controls("未过")
If tg.Checked = False And wg.Checked = False Then
    MessageBox.show("请出库品管校验","不能关窗口",MessageBoxButtons.OK,MessageBoxIcon.Error)
    e.Cancel = True-----设置为true，窗口仍然能关掉。这是咋回事?
End If
For Each dr As DataRow In DataTables("配货扫描").DataRows
    If dr.Isnull("SN") Then
        dr.Delete
        dr.save
    End If
Next
--  作者：有点色
--  发布时间：2017/4/12 17:30:00
--  

msgbox有弹出吗？你的这个窗口是主窗口的话，不会触发你的beforeClose事件。

 

如果msgbox弹出了，你尝试再编辑一次beforeClose事件，确定，运行窗口，看有没有问题。
--  作者：huhu
--  发布时间：2017/4/12 18:55:00
--  
哦。发布之后就是可以的。
不能关掉可能是我用开发者的打开的窗口。
--  作者：有点色
--  发布时间：2017/4/12 19:26:00
--  
以下是引用huhu在2017/4/12 18:55:00的发言：
哦。发布之后就是可以的。
不能关掉可能是我用开发者的打开的窗口。

 

我测试了一下，没有问题，你升级到最新版，然后测试。

 

如果有问题，上传实例。