[求助]节点显示问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，

点击左面的目录树的“李四”，为何右面一级显示为“1”，好像是Node的name，可是我没设置，都用的Text;

怎么能正常显示为“管理”

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

呃，如果表A某行勾选了显示，那么它的父亲肯定也必须勾选显示才对，不然怎么生成树？

你的1.1是第二级树了啊。

怎么写才能自动勾选一级呢

或者可以换一种思路吧。

生成目录树以后，循环每一个节点，然后根据name或text去表a查找第二列的值，然后赋值给节点。

老师，

怎么写，求代码

Dim tr1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim tr2 As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim nd1 As WinForm.TreeNode = tr1.SelectedNode
Select Case nd1.Level
    Case 0
        tr2.GenerateTree("表A","第一列","第二列",".")
        tr2.ExpandAll
    Case 1
        For Each dr As DataRow In DataTables("表a").DataRows
            If dr("第三列").Contains(nd1.ParentNode.Text) Then
                dr("显示") = True
            Else
                dr("显示") = False
            End If
        Next
        tr2.GenerateTree("表A","第一列","第二列",".","[显示] =true")
        For Each nd3 As WinForm.TreeNode In tr2.AllNodes
            nd3.Text=e.Node.DataRow("第二列")
        Next
        tr2.ExpandAll
        Vars("Tree") = False
End Select
For Each nd2 As WinForm.TreeNode In tr2.AllNodes
    For Each dr As DataRow In DataTables("表A").DataRows
        If nd2.Text = dr("第一列") And dr("第一列").Contains(nd1.Text) Then
            nd2.Checked = True
        End If
    Next
Next
Vars("Tree") = True

[此贴子已经被作者于2015/6/2 23:33:36编辑过]

For Each nd3 As WinForm.TreeNode In tr2.AllNodes
nd3.Text=nd3.DataRow("第二列")
Next

红袍老师，

再求您给看看，到底应该怎么写呀。

[此贴子已经被作者于2015/6/3 15:08:25编辑过]

[此贴子已经被作者于2015/6/3 15:19:55编辑过]

For Each nd3 As WinForm.TreeNode In tr2.AllNodes
            If nd3.name = nd3.text Then
                Dim fdr As DataRow = DataTables("表A").Find("第一列 = '" & nd3.FullName.Replace("\", ".") & "'")
                If fdr IsNot Nothing Then
                    nd3.Text = fdr("第二列")
                End If
            End If
        Next

主题：[求助]节点显示问题