此主题相关图片如下：qq图片20151124225948.png

如附件图片错误，以下是代码，请问是什么问题引起的？

Dim bar As WinForm.NavBar = e.sender
Select Case bar.SelectedPage.ButtonText
    Case "销售管理"
         MainTable = Tables("表A")

    Case "采购管理"

Forms("test").OPEN(-1000,-1500)
Forms("test").BaseForm.TopLevel = False
Forms("test").BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms("test").BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
e.Form.Controls("TabControl1").BaseControl.TabPages("Page1").Controls.Clear
e.Form.Controls("TabControl1").BaseControl.TabPages("Page1").Controls.add(Forms("test").BaseForm)
e.Form.Controls("TabControl1").SelectedPage = e.Form.Controls("TabControl1").TabPages("Page1")
 
         MainTable = Tables("表A")
    Case "采购管理"
         MainTable = Tables("表C")
End Select