Foxtable(狐表)用户栏目专家坐堂 → XML多次循环查找并给表赋值


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

主题:XML多次循环查找并给表赋值

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/27 18:38:00 [显示全部帖子]

 之前告诉过你怎么操作xml,请自行补充知识

 

https://www.baidu.com/baidu?wd=xmldocument&tn=monline_dg&ie=utf-8

 

 


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/28 10:14:00 [显示全部帖子]

1、

 

Dim xmlDoc  As New System.Xml.XmlDocument
xmlDoc.LoadXml("<?xml version=""1.0"" encoding=""utf-8""?><iDLabelInfo>    <ProductName>LUNAR FLYKNIT 3 iD</ProductName>    <Sizes>        <sz SizeCode=""12.5"" SizeType=""us"" />        <sz SizeCode=""11"" SizeType=""uk"" />    </Sizes>    <MainColorway>Black Heather/Volt/white</MainColorway>    <DesignedBy>Hiroyuki Sugiyama</DesignedBy>    <ImageURL>ttp://origin-nikeid.nike.com//services/imgredirect/mtr-802081658/bgc-na/wid-574/vw-9</ImageURL>    <WorkOrderNumber>W00001</WorkOrderNumber></iDLabelInfo>")

Dim ndList  = xmlDoc.GetElementsByTagName("sz")

For i As Integer = 0 To ndList.count - 1
    If ndlist(i).Attributes IsNot Nothing Then
        For Each xa As Xml.XmlAttribute In ndlist(i).Attributes
            Output.Show(xa.Name & "=" & xa.Value)
        Next
    End  If
Next


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/28 10:19:00 [显示全部帖子]

2、没看懂你什么问题,如何查询Rdrecords32?

 

    解析出id后,你想怎么查就怎么查啊。


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/28 16:05:00 [显示全部帖子]

 如果是查找,你要传递什么参数过去查找?对方的文档如何说明?

 

 如果是获取值,参考

 

Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Load("d:\test.xml")
Dim ndList  = xmlDoc.GetElementsByTagName("ufinterface")
For i As Integer = 0 To ndList.count - 1
    msgbox(ndlist(i).Attributes("sqlstr").value)
Next


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/28 16:26:00 [显示全部帖子]

 那你就不能合成字符串?合成字符串之后查询?

 

Dim msg As String = "context=" & 这里写你合成的字符串
output.show(msg)
Dim req = System.Net.WebRequest.Create("http://192.168.1.83/EFWebS/EFWebService.asmx/U8WebXML")

[此贴子已经被作者于2017/6/28 16:26:24编辑过]

 回到顶部