用Dim OBJxmlnode As new IXMLDOMNode 试试.
不过我不是很认同你这样的写法,效率很低.

Dim arrDate As IXMLDOMNodeList
Dim arrDivision as IXMLDOMNodeList
.
.
.Set arrDate = OBJxmlnode.getElementsByTagName("Date")
Set arrDivision = OBJxmlnode.getElementsByTagName("Division").
.这样获得nodeList后对nodeList(0),nodeList(1),......进行操作会高效.

解决方案 »

  1.   

    是呵,ltpao(啊炮)说得对.看来我还是马大哈了...
      

  2.   

    我注意大小写,brian_zhuang(不长进的阿庄) 我再按你说的试一试,谢谢
      

  3.   

    brian_zhuang(不长进的阿庄)老兄,你没有明白我的意思,我之所以把它做成方法是因为我把它封装在类中,对外界只提供一个M_Get_Conditiontext方法,只要输入每个要得到节点内容的节点名就可以了。
      

  4.   

    工程→引用→Microsoft XML,verson2.0
      

  5.   

    ltpao(啊炮)同志,果然是大小写问题,呵呵,
    Text2.text = M_Get_Conditiontext("Division")  'division
    我现在兑现我的承诺送分40dbcontrols(泰山__帮助你使我感到快乐.)老兄,难道我还不知道引用?别灌水了哦!