Vb.net 如何删除具有两个不同名称的xml节点

我尝试用一个函数删除具有两个不同名称的xml节点。有时这个词 使用，其他时间使用代码-例如“年”和“b074”
我收到一个错误，说已超过最大错误数

 <Person>                            <Person>
    <Name> John </Name>                 <Name> John </Name>
    <age> 24 </age>                     <age> 24 </age>
    <DOB>                               <DOB>
      <year> 1990 </year>                  <b074> 1990 </b074>
      <month> 03 </month>                  <b678> 03 </b678>
      <date> 23 </date>                    <b745> 23 </b745>
    </DOB>                              </DOB>
 </Person>                           </Person>   

 Dim ShortName as Boolean 

 Function HandleTagName(name as string) as XName 
     Select Case name
         Case "Year", "b074"
            If ShortName Then
                Return "b074"
            Else
                Return "Year"

            End If
      End Select
 End Function 

Sub CompressFile()
   Dim Doc as XDocument

   If doc.<Person>.<DOB>.HandleTagName(<Year>) isNot Nothing Then
     doc.<Person>.<DOB>.HandleTagName(<Year>).Remove()
     count += count + 1
   End If
 End Sub

约翰
24                       24 
1990                    1990 
03                    03 
23                      23 
将ShortName设置为布尔值
函数HandleTagName（名称为字符串）作为XName
选择案例名称
案件“年份”，“b074”
如果是短名，那么
返回“b074”
其他的
返回“年”
如果结束
结束选择
端函数
子压缩文件（）
Dim Doc作为XDocument
如果doc…HandleTagName（）不是空的，那么
doc…HandleTagName（）.Remove（）
计数+=计数+1
如果结束
端接头

您遇到了哪些错误？BC30041:已超过最大错误数。-这些是唯一的错误！没有这个功能，它工作得很好！它应该在停止之前提供更多有用的错误。检查输出/调试窗口。我无法从visual studio进行调试。。。它是在线完成的，所以当页面被选中时，我就可以查看错误了。但就我所知，其他一切都是有效的如果我删除该函数，我没有任何错误。您的函数是HandleTagName还是HandleTag？看起来您正在同时使用这两种方法。