請教treeview的nodeclick事件如何使用？

lexy2k

下列代碼一旦加上nodeclick事件處理模塊就出錯，為什么？幫幫吧。

Private WithEvents Treevw As TreeView
Private Sub Form_Load()
    treeLoad
    Set Treevw = Me.TreeView0.Object
End Sub

Private Sub treeLoad()
'* -----------------------------------------------------------------
    Dim Rec As New ADODB.Recordset
    Dim stRecQL As String
    Dim Item As Integer
    Dim i As Integer
    Dim nodindex As Node
'* -----------------------------------------------------------------
    '設(shè)置最頂級"
    Set nodindex = TreeView0.Nodes.add(, , "f0", "方案", "K1", "K2")
    nodindex.Sorted = True
'* -----------------------------------------------------------------
    '設(shè)置第二級
    Rec.Open "期間", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
    For i = 0 To Rec.RecordCount - 1
        Set nodindex = TreeView0.Nodes.add("f0", tvwChild, "qj" & Rec.Fields("期間_ID"), Rec.Fields("期間_NO"), "K1", "K2")
        nodindex.Sorted = True
        Rec.MoveNext
    Next
    Rec.Close
End Sub


Private Sub Treevw_NodeClick(ByRef Node As Object)
End Sub

白河寒秋

天涯同病鳥，我也遇到了這個問題，在mdb中運(yùn)行正常的viewtree移到ADP中就不可以用了

dreamsding

請教高手

LeeTia

在非調(diào)試狀態(tài)進(jìn)入VBA添加引用就可以了