主题：请帮忙在这样的目录树里面加上双击节点，将数据录入另一个表的列中

NodeMouseDoubleClick :

Dim tr As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
Dim fts()As String
Dim n As Integer
Dim s As String
fts = nd.FullPath.Split("\")
Dim dr As DataRow
dr = DataTables("产品").AddNew()
dr("名称") = fts(fts.length-1)
For Each ft As String In fts
    s = s & left(nd.name,3*(n+1)) & "\"

n = n + 1
Next
dr("ID") =s.trim("\")