以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关闭窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125827)
--  作者：江南小镇
--  发布时间：2018/10/8 10:05:00
--  [求助]关闭窗口
老师节日快乐，我希望在下面的代码中增加关闭窗口的提示。


Dim r As Row = Tables("通讯1_Table1").current
If r IsNot Nothing Then 
  If r.Isnull("客户ID") Then
    MessageBox.Show("客户ID不能为空?", "提示", MessageBoxButtons.ok, MessageBoxIcon.Information)
    Return
  End If
End If

If DataTables("通讯1_Table1").haschanges Then
 If MessageBox.Show("信息已修改,尚未保存,是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)= dialogresult.yes Then
     DataTables("通讯1_Table1").save
 Else
     DataTables("通讯1_Table1").rejectchanges
 End If
 DataTables("通讯1_Table1").allowedit = False
End If
--  作者：有点甜
--  发布时间：2018/10/8 11:03:00
--  

1、代码写到beforeClose事件，如果允许关闭，就设置

 

e.cancel = false

 

如果不允许关闭，就设置 e.cancel = true

 

2、你现在遇到的是什么问题？如果写在自己的按钮里面，你应该加上 e.form.close 关闭窗口的代码
--  作者：江南小镇
--  发布时间：2018/10/8 11:26:00
--  
谢谢老师