XML 到数据集 - 查找数据行包含数据表的问题

Question

抱歉，如果描述不好，但我不知道还能怎么说...... 但这里是一个 XML 结构的示例，

<?xml version=”1.0” encoding=”UTF-8”>
<Response xmlns="http://www.blah.com">
  <searchResult>
    <info>
      <firstName>John</firstName>
      <lastName>Doe</lastName>
      <totalCharges>100.00</totalCharges>
      <nonPaymentCode>99999</nonPaymentCode>
    </info>
    <info>
      <firstName>Susan</firstName>
      <lastName>Doe</lastName>
      <totalCharges>1000.00</totalCharges>
      <errorCodes>
        <errorCode>12345</errorCode>
      </errorCodes>
    </info>
    <info>
      <firstName>Peter</firstName>
      <lastName>Doe</lastName>
      <totalCharges>10.00</totalCharges>
      <errorCodes>
        <errorCode>12345</errorCode>
        <errorCode>54321</errorCode>
        <errorCode>85246</errorCode>
      </errorCodes>
    </info>
  </searchResult>
</claimInquiryResponse>

我已将其转换为数据集，以便以数据表的形式访问信息。 但我的问题是试图获取错误代码。我试图通过检查表的关系来弄清楚这一点。因为我必须弄清楚哪些错误代码与哪个人相关，以便正确显示它们。我无法控制 XML 结构，为了减少多余的带宽，一切都是可选的，因此目前无法选择更改它。但这是我所做的一个示例：

For Each rel As DataRelation In ds.Tables(i).ChildRelations
    If rel.Nested Then
        Dim temp As New DataTable
        temp = rel.ChildTable
        For Each relationship As DataRelation In temp.ChildRelations
            For Each row As DataRow In relationship.ChildTable.Rows
                For Each column As DataColumn In relationship.ChildTable.Columns
                    rowValues &= column.ColumnName & "-" & row(column.ColumnName) & "-" & relationship.RelationName & vbCrLf
                Next
            Next
        Next
    End If
Next

这为我提供了 errorCodes 表内数据的实际值。但我不知道如何将其链接回与其关联的行/人。关系生成的索引是根据其出现情况构建的（例如，susan 的错误代码为 0，peter 的错误代码为 1），与它们在 XML 中的位置无关。

我要么做错了，要么错误地查看了这些数据。 我知道我可以使用 XML 阅读器来获取所有这些，但数据已经在数据集中，我想学习一些新东西。所以请仅建议将其作为最后的手段。

提前致谢！

Answer 1

首先，您的 XML 格式不正确 - 快速复制并粘贴到 .NET 项目中的 xml 文档中将向您显示： 首先。

如果您可以解决这个问题：如果您使用 ReadMode.Auto 执行 ReadXml 操作，那么您应该能够执行以下操作。请注意，.NET 添加了额外的列来维护关系，我现在已经对它们进行了硬编码：

Dim strfile As String = "somefile.xml"
        Dim ds As New DataSet
        ds.ReadXml(strfile, XmlReadMode.Auto)

    For Each drInfo As DataRow In ds.Tables("info").Rows
        Debug.Print(drInfo.Item("lastname").ToString + " " + drInfo.Item("firstname").ToString)
        For Each drCodes As DataRow In ds.Tables("errorCodes").Rows
            If drCodes.Item("info_Id").ToString = drInfo.Item("info_Id").ToString Then
                For Each drCodeDetail As DataRow In ds.Tables("errorCode").Rows
                    If drCodeDetail.Item("errorCodes_Id").ToString = drCodes.Item("errorCodes_Id").ToString Then
                        Debug.Print(" Code ->" + drCodeDetail.Item("errorCode_Text").ToString)
                    End If
                Next
            End If
        Next
    Next 

更好的方法可能是循环遍历信息表，然后使用数据视图来过滤错误代码和错误代码表找到您感兴趣的代码：

Dim dvCodes As New DataView, dvCodeDetail As New DataView
        dvCodes = ds.Tables("errorCodes").DefaultView
        dvCodeDetail = ds.Tables("errorCode").DefaultView

    For Each drInfo As DataRow In ds.Tables("info").Rows
        Debug.Print(drInfo.Item("lastname").ToString + " " + drInfo.Item("firstname").ToString)
        dvCodes.RowFilter = "info_Id = " + drInfo.Item("info_Id").ToString
        For i As Integer = 0 To dvCodes.Count - 1
            dvCodeDetail.RowFilter = "errorCodes_Id = " + dvCodes(i).Item(0).ToString
            For j As Integer = 0 To dvCodeDetail.Count - 1
                Debug.Print(" Code ->" + dvCodeDetail(j).Item(0).ToString)
            Next
        Next
    Next

Answer 2

我最终只是通读了 XML，检查了节点名称，并为错误代码构建了一个单独的表，当我找到信息的结束元素时，我单独吐出了这些表。