这种数据结构如何用treeview生成树

tongjr 2003-03-24 11:39:32

id name Leaf
================================
1 张三 1
1.1 李四 1
1.2 王二 1
1.3 麻子 1
1.3.1 涨钱 1
1.3.1.1 顺利 0
1.3.1.2 呼呼 0
=================================

请问大虾，如何用treeview生成树哪！？

以前做的结构都是id,parentid，没做过这种地~~
给点指导，谢谢列~~~

...全文

82 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2003-03-25

打赏
举报

不知对不对????????

Private Sub Form_Load()
Dim nodx As Node
TreeView1.Style = tvwTreelinesPlusMinusPictureText
Set nodx = TreeView1.Nodes.Add(, , "id1", "张三")
nodx.Expanded = True
Set nodx = TreeView1.Nodes.Add("id1", tvwChild, "id1.1", "李四 ")
Set nodx = TreeView1.Nodes.Add("id1", tvwChild, "id1.2", "王二 ")
Set nodx = TreeView1.Nodes.Add("id1", tvwChild, "id1.3", "麻子")
nodx.Expanded = True
Set nodx = TreeView1.Nodes.Add("id1.3", tvwChild, "id1.3.1", "涨钱")
nodx.Expanded = True
Set nodx = TreeView1.Nodes.Add("id1.3.1", tvwChild, "id1.3.1.1", "顺利")
Set nodx = TreeView1.Nodes.Add("id1.3.1", tvwChild, "id1.3.1.2", "呼呼")
nodx.Expanded = True
End Sub

qbilbo 2003-03-25

打赏
举报

对了，m_stru是一个TreeStructure类型的变量数组。

qbilbo 2003-03-25

打赏
举报

我不知道你上面的数据是不是来自一个数据库。
如果是的话，可用以下的办法。
将数据库的中内容导入TreeStructure结构(代码略，注意导入时一定要将数据库的的内容按ID排升序后再给TreeStructure结构赋值。)

Private Type TreeStructure
Id As String
Name As String
End Type

Private Sub Form_Load()
Dim i As Long, n As Integer, TempKey As String
Dim nodx As Node
TreeView1.Style = tvwTreelinesPlusMinusPictureText

For i = LBound(m_stru) To UBound(m_stru)
n = InStrRev(m_stru(i).Id, ".")
If n = 0 Then
Set nodx = TreeView1.Nodes.Add(, , "key" + m_stru(i).Id, m_stru(i).Name)
nodx.Expanded = True
Else
TempKey = Left(m_stru(i).Id, n - 1)
Set nodx = TreeView1.Nodes.Add("key" + TempKey, tvwChild, "key" + m_stru(i).Id, m_stru(i).Name)
nodx.Expanded = True
End If
Next
End Sub

tongjr 2003-03-25