主题：请教:一个很奇怪的窗口问题(已解决)

检查一下窗口的关闭前执行事件。

查出原因了,呵,问题出在"进货信息"窗口的一个全局事件代码问题上,原代码是:

With Tables("进货信息_Table1")
Select Case e.Sender.Name
    Case "Button6"
        .Position = .Position - 1
    Case "Button4"
       .Position = .Position + 1

    Case "Button5"
       .Position = 0
    Case "Button7"
       .Position = .Rows.Count -1
 Case "Button1"
              .AddNew()
    Case "Button2"
      Dim Result As DialogResult
Result = MessageBox.Show("确定要删除?将同时删除其所有记录!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
 .Current.Delete()
   Else
    End If
    Case "Button3"
DataTables("进货信息_Table1").Save()
 MessageBox.Show("已保存!","提示")

End Select
 End With

经贺老师指点,写成如下:请看红色代码部分,呵呵,第一句中的"Button9",就是我当初点击此按钮时出错的按钮名称

没办法,我只能是一段一段的删除代码,看看是什么原因影响的,呵呵,查出问题了,以后就知道应该如何处理此类事件了,呵呵