要插入的节点来自不同的文档上下文

Question

我在下面的函数中得到这个错误。

Public Function GetXmlEnvironment(ByVal xmlTree As XmlNode, ByVal objUser As XTUser, ByVal objModule As XTModuleInfo, ByVal objProject As XTProject, ByVal objPage As IXTPage) As XmlNode
    Dim objXml As XmlDocument = New XmlDocument()
    Dim xmlEnvironment As XmlElement
    xmlEnvironment = objXml.CreateElement("Environment")
    If (xmlTree.HasChildNodes()) Then
        xmlTree.FirstChild.AppendChild(xmlEnvironment) ' Error occurs here
    End If
' ...
End Function

我需要将XmlElement转换为XmlNode吗?

Answer 1

Public Function GetXmlEnvironment(ByVal xmlTree As XmlNode, ByVal objUser As XTUser, ByVal objModule As XTModuleInfo, ByVal objProject As XTProject, ByVal objPage As IXTPage) As XmlNode
  Dim objXml As XmlDocument = New XmlDocument()
  Dim xmlEnvironment As XmlElement
  xmlEnvironment = objXml.CreateElement("Environment")
  If (xmlTree.HasChildNodes()) Then
    xmlTree.FirstChild.AppendChild(xmlTree.OwnerDocument.ImportNode(xmlEnvironment, True))
  End If
  '...'
End Function