子过程或函数未定义

miaowenxin

我按着一个例子编的目录树，为何出现提示：子过程或函数未定义

miaowenxin

Private Sub Form_Load()

    Dim objNode As Node
    Dim Rst As DAO.Recordset
    Dim strID As String
    Dim MaxLevel As Integer
    Dim I As Integer

    Set objTree = Me.TreeView0.Object
    objTree.Nodes.Clear

    Set objNode = objTree.Nodes.add(, , "NO.1", "建筑定额")    ' 头

    MaxLevel = CurrentDb.OpenRecordset("SELECT 等级 FROM 章节表 order by 等级 desc;")(0).Value

    For I = 1 To MaxLevel

        Set Rst = CurrentDb.OpenRecordset("SELECT 等级,ID,章节名称 FROM 章节表 where  等级=" & I & ";")

        Do Until Rst.EOF

            If Rst!等级 = 1 Then   '顶层菜单
                Set objNode = objTree.Nodes.add("NO.1", 5, "NO." & Trim(Rst!ID), Trim(Rst!章节名称))
            Else
                Set objNode = objTree.Nodes.add("NO." & Left(Rst!ID, (Rst!等级 - 1) * perSectionLong), 5, "NO." & Trim(Rst!ID), Trim(Rst!章节名称))
            End If
            Rst.MoveNext
        Loop
    Next

    Call TreeView0_NodeClick(objTree.Nodes(1))

End Sub

tz-chf

你至少得把错在哪句标出来吧

miaowenxin

Call TreeView0_NodeClick(objTree.Nodes(1))

fan0217

找找TreeView0_NodeClick在那里？当中肯定没有这个过程。

miaowenxin

谢谢fan0217版主的回复，但我还是没有找到问题出在什么地方，
请帮忙给修改一下

miaowenxin

我试过拉，把它删除就不显示拉

andymark

缺少下面的过程，请仔细对照原例子。真的不清楚请把示例和原例子一起传上来
TreeView0_NodeClick(objTree.Nodes(1))

miaowenxin

这是原例子

miaowenxin

这是我按着例子，编的但是总是出错

请帮忙修改一下，谢谢！