开发b/s程序 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请教老师，下面代码执行选择0时，可以正确打开Company窗口，可是执行选择1，2，3时就不能打开窗口，窗口都是独立的，也没有报错，请问如何改代码？

谢谢。

Dim selectednodename

Try

Select Case e.sender.SelectedNode.Nodes.Count

Case 0

With e.Sender

selectednodename=e.sender.SelectedNode.Name

e.Form.Controls("GroupBox1").text=selectednodename

Dim PB As WinForm.Panel =e.Form.Controls("Panel1")

Forms("Company").OPEN(-1000,-1500)

Forms("Company").BaseForm.TopLevel = False

Forms("Company").BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None

Forms("Company").BaseForm.Dock = System.Windows.Forms.DockStyle.Fill

PB.BaseControl.Controls.Clear

PB.BaseControl.Controls.add(Forms("Company").BaseForm)

End With

Case 1

With e.Sender

selectednodename=e.sender.SelectedNode.Name

e.Form.Controls("GroupBox1").text=selectednodename

Dim PB1 As WinForm.Panel =e.Form.Controls("Panel1")

Forms("Company2").OPEN(-1000,-1500)

Forms("Company2").BaseForm.TopLevel = False

Forms("Company2").BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None

Forms("Company2").BaseForm.Dock = System.Windows.Forms.DockStyle.Fill

PB1.BaseControl.Controls.Clear

PB1.BaseControl.Controls.add(Forms("Company2").BaseForm)

End With

Case 2

With e.Sender

selectednodename=e.sender.SelectedNode.Name

e.Form.Controls("GroupBox1").text=selectednodename

Dim PB As WinForm.Panel =e.Form.Controls("Panel1")

Forms("Company3").OPEN(-1000,-1500)

Forms("Company3").BaseForm.TopLevel = False

Forms("Company3").BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None

Forms("Company3").BaseForm.Dock = System.Windows.Forms.DockStyle.Fill

PB.BaseControl.Controls.Clear

PB.BaseControl.Controls.add(Forms("Company3").BaseForm)

End With

Case 3

With e.Sender

selectednodename=e.sender.SelectedNode.Name

e.Form.Controls("GroupBox1").text=selectednodename

Dim PB As WinForm.Panel =e.Form.Controls("Panel1")

Forms("Company4").OPEN(-1000,-1500)

Forms("Company4").BaseForm.TopLevel = False

Forms("Company4").BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None

Forms("Company4").BaseForm.Dock = System.Windows.Forms.DockStyle.Fill

PB.BaseControl.Controls.Clear

PB.BaseControl.Controls.add(Forms("Company4").BaseForm)

End With

End Select

Catch ex As Exception

messagebox.show("Please select name ." )

End Try

主题：开发b/s程序