完整的treeview菜单实例

以下是我用treeview控件按部门和员工显示设备领用情况代码.

Option Compare Database
    Dim rec As New ADODB.Recordset
    Dim recPlant As New ADODB.Recordset
    Dim nodindex As Node
    Dim keyDepa, strDepa
    Dim keyEm, strEm
    Dim keyPl, strPl
Private Sub Form_Load()
    AutoMxID
    '设置第一级"部门"
    rec.Open "qry部门_升序", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
    For I = 0 To rec.RecordCount - 1
        Set nodindex = Treeview.Nodes.Add(, , "部门" & rec.Fields("depaID"), rec.Fields("depa"), "k1", "k2")
        rec.MoveNext
    Next
    rec.Close
    nodindex.Sorted = False
    '设置第二级"员工"
    '* ---------------------------
    rec.Open "qry员工_升序", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
    For I = 0 To rec.RecordCount - 1
        Set nodindex = Treeview.Nodes.Add("部门" & rec.Fields("depaID"), tvwChild, "员工" & rec.Fields("emID"), rec.Fields("emName"), "k1", "k2")
        recPlant.Open "Select tblplant.plantid, tblplant.plant, tblplant.emid" & " FROM qry员工使用的设备" & " Where tblplant.emid = '" & rec.Fields("emID") & "'", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
        For N = 0 To recPlant.RecordCount - 1
            Set nodindex = Treeview.Nodes.Add("员工" & recPlant.Fields("emID"), tvwChild, "设备" & recPlant.Fields("PlantID"), recPlant.Fields("Plant"), "k1", "k2")
            nodindex.Sorted = True
            recPlant.MoveNext
        Next N
        recPlant.Close
        nodindex.Sorted = True
        rec.MoveNext
    Next I
    rec.Close
End Sub

Private Sub Treeview_NodeClick(ByVal Node As Object)
    Dim nodindex As Node
   点击事件为NodeClick
    If Node.Key Like "部门*" Then
        keyDepa = Mid(Node.Key, 3)
        strDepa = Node.Text: Me.申报部门 = strDepa
    End If
    If Node.Key Like "员工*" Then
        keyEm = Mid(Node.Key, 3)
        strEm = Node.Text: Me.申报员工 = strEm
    End If

If Node.Key Like "设备*" Then
        keyPl = Mid(Node.Key, 3)
        strPl = Node.Text: Me.设备名称 = strPl: Me.设备编号 = keyPl
    End If
End Sub