关于TreeView的节点问题，请求高手解决!

来源：百度知道 编辑：UC知道 时间：2024/06/05 06:30:40
在数据库的某个字段里面有这样的一类字符串
A
AA
AB
AC
AAA
AAB
AAC
B
BA
BB
BC
BAA
BAB
BAC
现在我要将他们显示在TREEVIEW中，比如AA的父节点是A，AAA的父节点是AA
这个东东该怎么实现。通过我会追加分的。
可是我这个可能的长度最大有26个啊 总不能写26次吧

假设数据库表名为"表",第一列为A,内容是您上面的数据,第二列为B,是指其它说明文字
在窗体上加一按钮,一DATA控件,将数据库绑定好,再加一处TREEVIEW1
把代码复制到代码区,运行即可

原理:共做三次数据库循环,第一根据一个字母的建立第一层,然后根据二个字母的建立第二层,最后根据三个字母的建第三层.

Private Sub Command1_Click()
Dim objLI As Node
Do While Data1.Recordset.EOF = False
If Len(Data1.Recordset!A) = 1 Then
Set objLI = TreeView1.Nodes.Add(, , Data1.Recordset!A, Data1.Recordset!B)
End If
Data1.Recordset.MoveNext
Loop
'第一层结束

Data1.Recordset.MoveFirst
Do While Data1.Recordset.EOF = False
If Len(Data1.Recordset!A) = 2 Then
Set objLI = TreeView1.Nodes.Add(Left(Data1.Recordset!A, 1), tvwChild, Data1.Recordset!A, Data1.Recordset!B)
End If
Data1.Recordset.MoveNext
Loop
'第二层结束

Data1.Recordset.MoveFirst
Do While Data1.Recordset.EOF = False
If Len(Data1.Recordset!A) = 3 Then
Set objLI = TreeView1.Nodes.Add(Left(Data1.Recordset!A, 2), tvwChild, D