-1

以下の関数を使用しています。最初の関数では、MSXML を使用して xml のノードとその値を解析しました。他の xml で同様の関数を使用します。

Public Sub DisplayNode1(ByRef Nodes1 As MSXML2.IXMLDOMNodeList, _ ByVal Indent1 As Integer)

いくつかの行 

  RichTextBox2.Text = Space$(Indent) & xNode1.ParentNode.nodeName & _
        ":" & xNode1.NodeValue 

        difference

いくつかの行 

Public Sub difference() 

Dim a As IXMLDOMText 

Dim b As IXMLDOMText

a.NodeValue = xNode.innertext  'i get erroe in line    

b.NodeValue = xNode1.innertext           

If StrComp(a, b) > 0 Then  

a = vbRed  

b = vbRed 

End If

すぐに助けてください。

4

1 に答える 1

1

これには潜在的に間違っていることがたくさんあります。

  • コードサンプルのどこにも xnode が宣言されていません
  • a、b、xnode のいずれも、コード サンプルのどこにも明示的に設定されていません
  • xnode がフォーム/モジュール/グローバル レベルの変数でない限り、差分手順の範囲外になります。
  • 表示されていませんが、コードまたはデフォルトで Option Explicit が設定されていないと思います

このコードを使用する前に、まずこれらの点に対処する必要があります。

于 2012-12-11T14:51:02.243 に答える