以文本方式查看主题

-  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=83046)
--  作者：土木1949
--  发布时间：2016/3/30 10:44:00
--  我需要根据列的名称生成目录树，而不是列的内容，有什么办法么？

图片点击可在新窗口打开查看此主题相关图片如下：69o0ywa1{kmz%3{`if)wm5.png
图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：2016/3/30 10:57:00
--  

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim t As Table = Tables("表A")

For Each c As Col In t.cols
    If c.caption Like "*_*" Then
        Dim ary() As String = c.caption.split("_")
        If trv.Nodes.Contains(ary(0)) = False Then
            trv.nodes.Add(ary(0))
        End If
        trv.Nodes(ary(0)).Nodes.Add(ary(1))
    End If
Next