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

此主题相关图片如下：6666.png

如图所示，要让 1,2,3…… 的Node.Name = 1 Node.Text = 壹

请问如何实现？

列可能是多列的，不一定就是三列，也就是在BuildTree(DataTableName, Columns, Filter, Sort)的效果也要达到

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:目录树.foxdb

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

不知是不是这样

是的。

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

谢谢楼上的回复，

但是这样的话，第四列的name和名称就一样了

我要求name是第三列 text是第四列

那就是你在代码里设置，当选择第三个节点的时候，在表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

 

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

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.BuildTree("表A","第一列|第二列|第三列")
Dim dr As DataRow
For Each nd As WinForm.TreeNode In tr.AllNodes
    If nd.AllNodes.Count = 0 Then
        dr = DataTables("表A").find("[第三列] = '" & nd.name & "'")
        If dr IsNot Nothing
            nd.text = dr("第四列")
        End If
    End If
Next