以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于XML 解析  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74116)
--  作者：kunmails
--  发布时间：2015/9/2 16:28:00
--  关于XML 解析
Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Load(ProjectPath & "fff.xml")
Dim ndList As System.XML.XmlNodeList = xmlDoc.GetElementsByTagName("CPayment")
For i As Integer = 0 To ndList.count - 1
    Dim nr As Row = Tables("xssj").AddNew
    nr("eid") = ndList(i).item("ID").InnerText
    nr("OrgId") = ndList(i).item("OrgId").InnerText
    nr("OrgName") = ndList(i).item("OrgName").InnerText
Next

在以上代码中经常会因为xml 缺少节点中的某个字段而导致出错！
我希望在导入表前判断下，如果xml 中节点有这个字段再赋值。

比如
if  ndList(i) 包含  item("ID") then
 nr("eid") = ndList(i).item("ID").InnerText
end if
这个判断语句该怎么写，请教大家！
--  作者：大红袍
--  发布时间：2015/9/2 16:37:00
--  

直接判断就行了

 

If ndList(i).item("ID") IsNot Nothing Then

    nr("eid") = ndList(i).item("ID").InnerText

End If