利用TreeView控件实现多级商品信息浏览

Dim i As Integer '定义整型变量
Public Sub tree_change() '定义添加树状列表的函数
Dim key, text, bh As String
'Dim nod As Node
Adodc1.RecordSource = "select * from 商品基础信息表 order by 商品编号"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False
If Len(Trim(Adodc1.Recordset.Fields("商品编号"))) = 2 Then
key = Trim(Adodc1.Recordset.Fields("本级名称"))
text = "(" & Trim(Adodc1.Recordset.Fields("商品编号")) & ")" & Trim(Adodc1.Recordset.Fields("本级名称"))
Set Node1 = TreeView1.Nodes.Add(, , key, text, 1)
End If
If Len(Trim(Adodc1.Recordset.Fields("商品编号"))) = 4 Then
key = Trim(Adodc1.Recordset.Fields("本级名称"))
text = "(" & Trim(Adodc1.Recordset.Fields("商品编号")) & ")" & Trim(Adodc1.Recordset.Fields("本级名称"))
Set Node2 = TreeView1.Nodes.Add(Node1.Index, tvwChild, key, text, 2)
End If
If Len(Trim(Adodc1.Recordset.Fields("商品编号"))) = 7 Then
key = Trim(Adodc1.Recordset.Fields("本级名称"))
text = "(" & Trim(Adodc1.Recordset.Fields("商品编号")) & ")" & Trim(Adodc1.Recordset.Fields("本级名称"))
Set Node3 = TreeView1.Nodes.Add(Node2.Index, tvwChild, key, text, 3)
End If
Adodc1.Recordset.MoveNext
Loop
End If
End Sub
Private Sub Form_Activate()
'查询所有商品信息
Adodc1.RecordSource = "select * from 商品基础信息表 order by 商品级别,商品编号"
Adodc1.Refresh
With Adodc1.Recordset
If .RecordCount > 0 Then
For i = 0 To 7
If .Fields(i) <> "" Then Text1(i).text = .Fields(i)
Text1(i).Locked = True
Next i
End If
End With
Call tree_change '调用函数
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Text1(3).text = TreeView1.SelectedItem.key '赋值给text1(3).text
Adodc1.RecordSource = "select * from 商品基础信息表 where 本级名称='" + Trim(Text1(3).text) + "'order by 商品级别,商品编号"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount <> 0 Then
For i = 0 To 7
Text1(i).text = ""
If Adodc1.Recordset.Fields(i) <> "" Then Text1(i).text = Trim(Adodc1.Recordset.Fields(i))
Next i
End If
End Sub
Private Sub CmdExit_Click()
End
End Sub