主题：[求助]如何在主窗口导航栏中同一目录树下管理多个表

1、做一个表输入你要生成的目录树数据，然后生成表，代码不用改。

2、AfterSelectNode事件

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab.SelectedPage = tab.TabPages("餐饮量化")
Dim ta2 As WinForm.TabControl = e.Form.Controls("TabControl2")
tab.SelectedPage = tab.TabPages(e.node.text)

Dim tab1 As WinForm.TabControl = e.Form.Controls("TabControl1")

For Each tp As WinForm.TabPage In tab1.TabPages
    If tp.Text = "餐饮量化" Then
        tab1.SelectedPage = tp
    End If
Next

Dim tab2 As WinForm.TabControl = e.Form.Controls("TabControl2")
For Each tp As WinForm.TabPage In tab2.TabPages
    If tp.Text = e.node.text Then
        tab2.SelectedPage = tp
    End If
Next