老师节日快乐，我希望在下面的代码中增加关闭窗口的提示。
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
加好友 
发短信
Post By：2018/10/8 10:05:00 [只看该作者]
