用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),......进行操作会高效.
不过我不是很认同你这样的写法,效率很低.
用
Dim arrDate As IXMLDOMNodeList
Dim arrDivision as IXMLDOMNodeList
.
.
.Set arrDate = OBJxmlnode.getElementsByTagName("Date")
Set arrDivision = OBJxmlnode.getElementsByTagName("Division").
.这样获得nodeList后对nodeList(0),nodeList(1),......进行操作会高效.
Text2.text = M_Get_Conditiontext("Division") 'division
我现在兑现我的承诺送分40dbcontrols(泰山__帮助你使我感到快乐.)老兄,难道我还不知道引用?别灌水了哦!