linq where 子句未产生预期结果

Question

我有以下 xml：

<Root>
    <Result img="1.png" name="a">
        <Programs>
            <Program name="foo1">
                <ProgramID>1</ProgramID>
            </Program>
        </Programs>
    </Result>
    <Result img="2.png" name="b">
        <Programs>
            <Program name="foo1">
                <ProgramID>1</ProgramID>
            </Program>
            <Program name="foo2">
                <ProgramID>2</ProgramID>
            </Program>
        </Programs>
    </Result>
    <Result img="3.png" name="c">
        <Programs>
              <Program name="foo1">
                <ProgramID>1</ProgramID>
            </Program>
        </Programs>
    </Result>
    <Result img="4.png" name="d">
        <Programs>
             <Program name="foo1">
                <ProgramID>1</ProgramID>
            </Program>
        </Programs>
    </Result>
</Root>

我尝试使用下面的 linq 语句按 ProgramID 过滤 xml，但当我传递值 2 时，我总是得不到任何结果，奇怪的是，当我传递值 1 时，我确实得到了预期结果，即所有四个结果。

xOut = New XElement("Root", _
                                   From s In x...<Result> _
                                   Where s.<Programs>.<Program>.<ProgramID>.Value = 2 _
                                   Select s)

linq 查询出了什么问题。为什么 1 有效而 2 无效？我还想在过滤后保留 xml 结构。

Answer 1

下面是在 C# 中执行此操作的方法：

        var xOut = new XElement(
            "Root",
            x.Descendants("Result")
            .Where(y => y.Descendants("Programs").Descendants("Program").Descendants("ProgramID")
            .Any(z => z.Value == "2")));

抱歉，不确定 VB.NET 的等效项是什么。