主题：窗口代码错误

无语

 

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.5485
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,主窗口,Button7,Click
详细错误信息：
未将对象引用设置到对象的实例。

加入msgbox调试啊。

 

http://www.foxtable.com/help/topics/1485.htm

 

这段代码在显示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)应该是这个代码出问题了，该怎么改呢

看15楼啊