解析webservice返回的xml - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 解析webservice返回的xml

共有4132人关注过本帖树形打印复制链接主题：解析webservice返回的xml

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110818 积分：564034 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/5/9 20:43:00 [显示全部帖子]

......

Dim ret As String = hc.GetData()

Dim xo As XObject = XObject.Parse(HTMLDecode(ret))

For Each ds As JToken In xo("NewDataSet")("ds")

Output.show("PATIENTNO=" & CStr(ds("PATIENTNO")) & ",ITEMCODE=" & CStr(ds("ITEMCODE")) & ",ITEMNAME=" & CStr(ds("ITEMNAME")) )

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110818 积分：564034 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/5/10 17:15:00 [显示全部帖子]

if xo("NewDataSet")("ds") Is Jarray then

这个是数组

else

不是数组

end if

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110818 积分：564034 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/5/10 17:27:00 [显示全部帖子]

xo("NewDataSet")("ds")("PATIENTNO")

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110818 积分：564034 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/5/10 17:43:00 [显示全部帖子]

被和谐了

if Typeof xo("NewDataSet")("ds") Is Jarray then

这个是数组

else

不是数组

end if

主题：解析webservice返回的xml