function - 为什么我的 VBA 函数返回 0？

Question

考虑 VBA 中的以下函数(请注意，它已根据给出的答案进行了编辑，因此现在它可以工作 - 请参阅原始版本的编辑历史记录):

Function DisplayNode(ByRef Nodes)

    Dim xNode As Object
    For Each xNode In Nodes

        If xNode.nodeName = "LastTradePriceOnly" Then
            DisplayNode = xNode.Text
            Exit Function
        End If
        If xNode.HasChildNodes Then
            DisplayNode = DisplayNode (xNode.ChildNodes)
        End If

   Next xNode

End Function

此函数解析 XML 响应并返回节点之一的值，LastTradePriceOnly。

Nodes 参数是一个 MSXML.DOMDocument 对象。当我使用 msgBox 打印 xNode.text 的值时，我期望的值被输出。但是，当我从另一个函数调用此函数时，返回 0。

对于为什么我可能会返回 0 有什么想法吗？

Answer 1

您忘记了从递归调用中实际返回值:

DisplayNode = DisplayNode (xNode.ChildNodes)

去过那里:)