AfterSelectNode事件,写代码
If Tables.Contains(e.Node.text) Then e.node.Nodes.Clear For Each c As Col In Tables(e.node.text).cols e.node.nodes.Add(c.name) NextEnd If