挿入するノードが別のドキュメントコンテキストからのものです

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