treeview 的 nodeclick 如何在下級(jí) 動(dòng)態(tài)加載 子節(jié)點(diǎn)

mopems

[:28]請(qǐng) fans 職教一下，我剛好也碰到類(lèi)是問(wèn)題：我建立一個(gè) 部門(mén)樹(shù)，希望 點(diǎn)擊部門(mén)后，在下級(jí)節(jié)點(diǎn) 添加 該部門(mén)內(nèi)的人員， 已基本實(shí)現(xiàn)，但是如果重新點(diǎn)擊 該部門(mén)后，提示錯(cuò)誤： key 不是唯一


Private Sub Form_Load()
    Me.Trv.Nodes.Clear    '清除Treeview控件中的所有節(jié)點(diǎn)
    Call AddMyTree(Trv, "usysDepartment", "Dept_ParentID", "Dept_ID", "Dept_Name")
    Me.Trv.SetFocus
End Sub

Private Sub Trv_NodeClick(ByVal Node As Object)
    'MsgBox Node.Index & "****" & Node.Tag
    Rec.Open "select * from EmploymentInfo where EMP_Units='" & Node & "'", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    If Rec.RecordCount > 0 Then
        For i = 0 To Rec.RecordCount - 1
                Set Nodeindex = Trv.Nodes.Add(Node, tvwChild, "e" & Rec.Fields("EMP_ID"), Rec.Fields("EMP_Name"), 1, 2)
                    Node.Tag = Rec.Fields("EMP_ID")
                    Node.Sorted = True
            Rec.MoveNext
         Next
    End If
    Rec.Close
    Me.Trv.Refresh

[ 本帖最后由 mopems 于 2008-8-28 14:51 編輯 ]

tmtony

因?yàn)槟闶窃邳c(diǎn)擊是創(chuàng)建下級(jí)節(jié)點(diǎn),那因?yàn)镵EY一樣,就會(huì)重復(fù)了,最好判斷如果已經(jīng)創(chuàng)建過(guò),就不再創(chuàng)建了

mopems

老大，如何判斷，有例子嗎，謝謝[:22]

另外：
我想 再點(diǎn)擊 人員 節(jié)點(diǎn) 時(shí)候，在 另外子窗體中顯示 其 資料，還需要注意什么東西嗎

[ 本帖最后由 mopems 于 2008-8-28 10:19 編輯 ]

tmtony

if  node.Children > 1 then
  '已經(jīng)加載過(guò)了
end if

mopems

但是如果單位還有下級(jí)單位呢,

單位1
      部門(mén)1
            子部門(mén)1
                  王五
                  劉四

著這樣會(huì)出錯(cuò)嗎

chenyingfengsx

ddddd

ztalex_ywt

首先通過(guò)需要添加節(jié)點(diǎn)的Key屬性先獲取一下對(duì)應(yīng)的節(jié)點(diǎn)node對(duì)象，如果node為nothing，說(shuō)明沒(méi)有改節(jié)點(diǎn)，否則就是已經(jīng)建立的。

Private Sub Trv_NodeClick(ByVal Node As Object)
    on error resume next
    Rec.Open "select * from EmploymentInfo where EMP_Units='" & Node & "'", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    If Rec.RecordCount > 0 Then
        For i = 0 To Rec.RecordCount - 1
                Set Nodeindex=nothing
                Set Nodeindex = trv.nodes("e" & Rec.Fields("EMP_ID"))
                if nodeindex is nothing then
                    Set Nodeindex = Trv.Nodes.Add(Node, tvwChild, "e" & Rec.Fields("EMP_ID"), Rec.Fields("EMP_Name"), 1, 2)
                    Node.Tag = Rec.Fields("EMP_ID")
                    Node.Sorted = True
                end if
            Rec.MoveNext
         Next
    End If
    Rec.Close
    Me.Trv.Refresh

xjb_test

頂頂

p51219

好好好