怎么样将从XML里面读出来的数据绑定或者是插入到MSHFlexGrid里面呢？

Question

我已经把XML里面的数据读出来了，但只是用MsgBox显示，我现在是必须把它弄到MSHFlexGrid网格里面使显示出来，
怎么样将从XML里面读出来的数据绑定或者是插入到MSHFlexGrid里面呢？

Answer 1

Dim strXML As String
    Dim xmlDocument As New DOMDocument
    Dim root As IXMLDOMElement
    Dim result As IXMLDOMElement
    Dim adoRecordset As New ADODB.Recordset    xmlDocument.loadXML (strXML)
    Set root = xmlDocument.documentElement
    Dim i As Integer
    For i = 0 To root.firstChild.childNodes.length - 1
        adoRecordset.Fields.Append root.firstChild.childNodes(i).nodeName, _
                                   adVariant, _
                                   adFldMayBeNull, _
                                   adFldIsNullable + adFldUpdatable
    Next i
    
    adoRecordset.Open
    
    For Each result In root.selectNodes("./result")
        adoRecordset.AddNew
        For i = 0 To root.firstChild.childNodes.length - 1
             adoRecordset.Fields(i).Value = result.childNodes(i).Text
        Next i
    Next
   
    Set MSHFlexGrid1.DataSource = adoRecordset
    adoRecordset.Close
    Set adoRecordset = Nothing

Answer 2

特别是单步执行的时候，到For Each result In root.selectNodes("./result")里就跳出来了。