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

我有两个窗口,一是"进货信息",窗口中有一个表,名称:Tables("进货信息_Table1"),窗口中还有一个按钮,代码如下:

Forms("进货").Show()
e.Form.Close

很简单,意思是打开进货窗口后,关闭当前窗口,结果每次打开进货窗口后都会报错:说是不存在"进货信息_Table1"的Table,

我以为是进货窗口中有什么代码与"进货信息_Table1"有关呢,但是查看了并没有任何与之关联的代码,如果只是单独打开进货窗口时并没这样的提示,进货窗口的AfterLoad事件的代码如下:与进货信息的窗口表并没有什么关系,搞了几个小时,我都没搞清楚是什么原因,请高手指点一下,先谢谢!

Vars("S")="入库"
If Vars("S")= "入库"
Tables("进货_Table1").Fill("Select * From {进货信息} WHERE [已入库]= 0","User",False)
e.Form.Controls("Button2").Enabled = False
Else If Vars("S")= "付款"
Tables("进货_Table1").Fill("Select * From {进货信息} WHERE [已付款]= 0","User",False)
e.Form.Controls("Button1").Enabled = False
End If

此主题相关图片如下：窗口提示.jpg

就是没有提示在什么位置,呵
我如果不写关闭进货信息的窗口,就不会提示,呵,不行的话,上QQ我发文件给你看吧

是"进货信息"窗口中有个打开"进货"窗口的按钮,而"进货"窗口中没有任何与"进货信息"窗口有关的代码

"进货"窗口中的表没有任何表事件代码

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

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",就是我当初点击此按钮时出错的按钮名称

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