如何筛选XML文件中的内容再传递给DATASET

[killerliu]

假如我有一个xml文件中有一个newstype节点，我想根据请求[newstype=*]来选择符合条件的xml内容传递给dataset，请问如何做到.
注：根据条件选出的内容不止一个，有多条

[rickjelly2004]

Dim menuReader As XmlTextReader
Dim menuXmlDoc As XmlDocument
Dim elemList As XmlNodeList
Dim elemMenu As XmlNodeList
Dim elemGoumu As XmlNodeList
Dim listDs As DataSet
Dim menuTable As DataTable
Dim menuRows As DataRow
Dim menuCol As DataColumn

listDs = New DataSet
menuTable = New DataTable("tb")
menuCol = New DataColumn
menuCol.ColumnName = "address"
menuTable.Columns.Add(menuCol)
menuCol = New DataColumn
menuCol.ColumnName = "url"
menuTable.Columns.Add(menuCol)
listDs.Tables.Add(menuTable)

Try
menuReader = New XmlTextReader(Server.MapPath("../xml"))
menuXmlDoc = New XmlDocument
menuXmlDoc.Load(menuReader)
menuReader.Close()
elemList = menuXmlDoc.GetElementsByTagName("user")
Catch ex As Exception
Throw New Exception(ex.Message)
Exit Sub
End Try


Try
menuXmlDoc = New XmlDocument
menuReader = New XmlTextReader(Server.MapPath("../.xml"))
menuXmlDoc.Load(menuReader)
menuReader.Close()
elemMenu = menuXmlDoc.GetElementsByTagName("menu")
Catch ex As Exception
Throw New Exception(ex.Message)
Exit Sub
End Try

////判断处理

For i = 0 To elemMenu.Count - 1

If elemMenu(i).Attributes(4).InnerText.Equals(strRole) Then
menuRows = listDs.Tables(0).NewRow
menuRows(0) = elemMenu(i).Attributes(1).InnerText
menuRows(1) = elemMenu(i).InnerText
listDs.Tables(0).Rows.Add(menuRows)
End If
Next

[chagel]

XPath查询后返回XmlNodeList，存储为string再用DataSet的ReadXml方法读取。