主题：目录树中一个节点的分节点如何加到一坚列中

我需要在表格一次多个自动输入名称，如表第一列选择根目录元件A那么怎么让它把元件A的组成部分（B、C、D）三个名字自动填加到表第二列中并分行显示，、、、、请高手帮帮忙、、、谢谢

实现的过程很简单：

1、在行政区域表新建一个窗口，窗口类型设为模式型。
2、在窗口中加入一个目录树控件。
3、将窗口的AfterLoad事件设为：

Dim tv As WinForm.TreeView
tv = e.Form.Controls("TreeView1")
tv.BuildTree("行政区域","省市|县市")

4、将目录树的NodeMouseDoubleClick事件设为：

If e.Node.Level = 0 Then '如果是顶层节点
Return '则返回
End If
Dim Vals() As String = e.Node.FullPath.Split("\")
Dim Filter As String = "[省市] = '" & Vals(0) & "' And [县市] = '" & Vals(1) & "'"
Dim dr As DataRow = DataTables("行政区域").Find(Filter)
Dim r As Row = Tables("客户资料").Current
r("省市") = dr("省市")
r("县市") = dr("县市")
r("区号") = dr("区号")
r("邮编") = dr("邮编")
e.Form.Close()