Dim ssCODE,ssMsg,fphm,fpdm As String
Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Load(ProjectPath & "Attachments\返回数据.xml")
Dim ndList As System.XML.XmlNodeList = xmlDoc.GetElementsByTagName("business")
For i As Integer = 0 To ndList.count - 1
ssCode=ndList(i).item("returncode").InnerText
ssMsg =ndList(i).item("returnmsg").InnerText
If sscode="0" Then
fphm=ndList(i).item("fphm").InnerText
fpdm=ndList(i).item("fpdm").InnerText
End If
Next
MessageBox.Show(fphm)