以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]下面的目录树如何形成，如何写代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=58019)
--  作者：lyfxybc
--  发布时间：2014/10/10 9:37:00
--  [求助]下面的目录树如何形成，如何写代码

下面的目录树如何形成，如何写代码


图片点击可在新窗口打开查看此主题相关图片如下：18.bmp
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下：17.bmp
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:目录树.rar

[此贴子已经被作者于2014-10-10 9:39:30编辑过]
--  作者：有点甜
--  发布时间：2014/10/10 9:39:00
--  

 简单方法，加入一列表达式列，然后用createTree

 

 http://www.foxtable.com/help/topics/1970.htm

 
--  作者：Bin
--  发布时间：2014/10/10 9:43:00
--  
.
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb
--  作者：lsy
--  发布时间：2014/10/10 9:46:00
--  
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each r As Row In Tables("表A").Rows
    If r.IsNull("第一列") = False AndAlso tv.Nodes.Contains(r("第一列")) = False Then
        Dim nd As WinForm.TreeNode = tv.Nodes.Add(r("第一列"))
        For Each s As String In r("第二列").Split(",")
            If nd.Nodes.Contains(s) = False Then
                nd.Nodes.Add(s)
            End If
        Next
    End If
Next
--  作者：lyfxybc
--  发布时间：2014/10/10 18:19:00
--  
谢谢