主题：窗口代码错误

我在另外一个窗口中可以使用的代码，到这里窗口就这样提示的不知道是什么原因

Dim tab As winform.tabcontrol=e.Form.controls("tabcontrol3")
If tab.tabpages("窗口1") IsNot Nothing Then
    tab.Selectedpage = tab.tabpages("窗口1")
Else
    Dim name As String = "窗口1"
    tab.tabpages.Add(name,name)
    Dim pb =tab.basecontrol
    Forms(name).open(-1000,-1500)
    Forms(name).baseform.Toplevel = False
    Forms(name).baseform.Formborderstyle = system.windows.Forms.Formborderstyle.none
    Forms(name).baseform.Dock = system.windows.Forms.dockstyle.fill
    pb.tabpages(name).controls.clear
    pb.tabpages(name).controls(Forms(name).baseform)
    tab.Selectedpage = tab.tabpages(name)
End If

.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,主窗口,Button6,Click
详细错误信息：
未将对象引用设置到对象的实例。

.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,主窗口,Button5,Click
详细错误信息：
重载决策失败，因为没有可访问的“controls”接受此数目的参数。

该怎么改呀

通过上述代码打开新窗口时，新窗口动态加载的控件也加载不进来，该怎么处理

打开主窗口，然后再在主窗口中打开高级筛选，打开高级筛选窗口中的按钮后关闭时提示错误，该怎么处理

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:产品5.zip

Dim tab As winform.tabcontrol=e.Form.controls("tabcontrol3")
If tab.tabpages("窗口1") IsNot Nothing Then
tab.Selectedpage = tab.tabpages("窗口1")
Else
Dim name As String = "窗口1"
tab.tabpages.Add(name,name)
Dim pb =tab.basecontrol
Forms(name).open(-1000,-1500)
Forms(name).baseform.Toplevel = False
Forms(name).baseform.Formborderstyle = system.windows.Forms.Formborderstyle.none
Forms(name).baseform.Dock = system.windows.Forms.dockstyle.fill
pb.tabpages(name).controls.clear
pb.tabpages(name).controls(Forms(name).baseform)
tab.Selectedpage = tab.tabpages(name)
End If

 

.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,主窗口,Button5,Click
详细错误信息：
重载决策失败，因为没有可访问的“controls”接受此数目的参数。

 

这段代码有什么问题吗？我是在一个窗口中打开另外一个窗口，打开时有以上提示

 

需要怎么改呀，帮助又类似的案例，这段代码在另外一个项目是可以的，

我也无语了，同一个项目中使用了两段同样的代码，都是调用财类型的窗口，一个可以，另一个不可以，提示如下，真不知道是什么原因

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,主窗口,Button7,Click
详细错误信息：
未将对象引用设置到对象的实例。

这段代码在显示2、8以后就提示

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,主窗口,Button7,Click
详细错误信息：
未将对象引用设置到对象的实例。以后就不再显示其他数字了，是1-2之间的代码出问题了吗？对吗

Dim tab As winform.tabcontrol=e.Form.controls("tabcontrol3")
If tab.tabpages("汇总表") IsNot Nothing Then
    tab.Selectedpage = tab.tabpages("汇总表")
MessageBox.Show(1)
Else
    Dim name As String = "汇总表"
    tab.tabpages.Add(name,name)
    Dim pb =tab.basecontrol
    Forms(name).open(-1000,-1500)
MessageBox.Show(2)
MessageBox.Show(8)
    Forms(name).baseform.Toplevel = False
    Forms(name).baseform.Formborderstyle = system.windows.Forms.Formborderstyle.none
MessageBox.Show(3)
    Forms(name).baseform.Dock = system.windows.Forms.dockstyle.fill
    pb.tabpages(name).controls.clear
MessageBox.Show(4)
    pb.tabpages(name).controls.add(Forms(name).baseform)
MessageBox.Show(5)
    tab.Selectedpage = tab.tabpages(name)
MessageBox.Show(6)
End If

Forms(name).open(-1000,-1500)应该是这个代码出问题了，该怎么改呢