Foxtable(狐表)用户栏目专家坐堂 → 关于XML 解析


  共有2167人关注过本帖树形打印复制链接

主题:关于XML 解析

帅哥哟,离线,有人找我吗?
kunmails
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:372 积分:3213 威望:0 精华:0 注册:2013/5/6 10:15:00
关于XML 解析  发帖心情 Post By:2015/9/2 16:28:00 [只看该作者]

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
这个判断语句该怎么写,请教大家!




 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/2 16:37:00 [只看该作者]

直接判断就行了

 

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

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

End If


 回到顶部