Dim xmlDoc As New System.XML.XmlDocument xmlDoc.Load("d:\xml.xml") Dim ndList = xmlDoc.GetElementsByTagName("出库明细")
For i As Integer = 0 To ndList.count - 1 Dim id As String = ndList(i).Item("出库单编号").InnerText Dim lb As String = ndList(i).Item("商品类别").InnerText output.show(id & " " & lb) Next