主题：一个DropDownBox控件，使用了一个DropDownForm下拉窗口，下拉窗口里有一个目录树，现在希望这个目录树由多个表的部分列生成， 每个表生成的目录放在同一个节点下，哪位老师帮忙看看，大代码应该怎么写啊？

参考代码

Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim dt As DataTable = DataTables("LFA1")
trv.nodes.Clear
Dim nd As WinForm.TreeNode = trv.nodes.Add("按【类型】划分")
For Each lx As String In dt.GetValues("ktokk")
    nd.nodes.Add(lx)
Next
nd = trv.nodes.Add("按【名称】划分")
For Each lx As String In dt.GetValues("name1")
    nd.nodes.Add(lx)
Next