主题：[求助]如何生成这种目录树

此主题相关图片如下：未命名.jpg

不知是不是这样

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.BuildTree("表A","第一列|第二列|第四列")

那就是你在代码里设置，当选择第三个节点的时候，在表A中找到第四列等于节点三的行，然后再将第三列的值赋给对应的项目。不知这样说能否理解？

你有例子吗？

 

If e.Node.Level = 2 Then '如果单击的是第三层节点
    Dim ps() As String = e.Node.FullPath.Split("\")  
    Dim dr As DataRow = DataTables("表A").Find("第一列 = '" & ps(0) & "' And 第二列 = '" & ps(1) & "' and 第三列 = '" & ps(2) & "'")
            If dr IsNot Nothing Then '如果在表A找到对应的行,则将此行的第四列值写入相关位置.
               
                 e.Form.DropDownBox.Value = dr("第四列") '这行例子是写入下拉窗口中的
             End If
     e.Form.DropDownBox.CloseDropdown()  '关闭下拉目录树
   
End If

 

我理解的是这样了，这样写的话 生成目录树时就按 第一 二  三列去生成   然后取值列用第四列