三小时掌握TREEVIEW控件

sphinx6666

Private Sub Form_Load()
    Dim Conn As New ADODB.Connection
    Dim Rec As New ADODB.Recordset
    Dim nodIndex As Node
    Dim strSQL As String
    Dim i As Integer
    On Error GoTo Err_cw
    Set Conn = CurrentProject.Connection
    Set nodIndex = TreeView.Nodes.Add(, , "a", "员工列表", "k1")

   '' ***********************************************************************************************
   '' 设置车间部门

    Rec.Open "车间部门", Conn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
    For i = 0 To Rec.RecordCount - 1
        Set nodIndex = Me.TreeView.Nodes.Add("a", tvwChild, "b" & Rec.Fields("编号"), Rec.Fields("车间部门"), "k1", "k2")
        Rec.MoveNext
    Next
    Rec.Close
    Rec.Open "员工工作信息", Conn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
    Rec.MoveFirst
    For i = 0 To Rec.RecordCount - 1
        Set nodIndex = Me.TreeView.Nodes.Add("b" & Rec.Fields("车间部门编号"), tvwChild, , Rec.Fields("员工编号"), "k1", "k2")
        Rec.MoveNext
    Next
    Rec.Close

Exit_cw:
    Set Conn = Nothing
    Set Rec = Nothing
    Exit Sub
Err_cw:
    MsgBox Err.Description
    Resume Exit_cw
End Sub

sheep99

好啊

mts

可帮了我大忙啦,谢谢分享

mts

挺适用的,感觉一点就通

fczqx

谢谢分享

wjtravis

郁悶啊﹐搞不定

wjtravis

太感謝了﹐學會了

2pl01

我要看一看

zhdy8855

看看~~~~~~~~~

fzfxy

真希望能3小时学会