Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何把返回的json值填入到table中？


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

主题：如何把返回的json值填入到table中？
帅哥哟，离线，有人找我吗？
ycwk
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1219 积分：8467 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2019/5/29 10:58:00 [只看该作者]

执行代码：
                 Dim str4 As String = "http://172.16.*.*:2000/Auth.asmx/Bedinfo_query?xml=<xml><nurse_cell_code>0494</nurse_cell_code></xml>"
                 Dim hc As New HttpClient(str4)
                 Dim ret As String = hc.GetData()
                 MessageBox.Show(ret)     '可以弹出返回值


                   
                    Dim xmlDoc As New System.XML.XmlDocument
                    xmlDoc.Loadxml(ret)

                    Dim ndList  = xmlDoc.GetElementsByTagName("string")

                    Dim json = ndList(0).innerText
                    Dim jo As JArray=JArray.parse(json)
                   ' msgbox(jo(0)("金额") )
                  '  msgbox(jo(0)("BED_NO") )

返回错误：

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看


返回的json如下：


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

请问是什么问题？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/29 11:11:00 [只看该作者]

 

把你返回的内容，直接贴出来测试。

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1219 积分：8467 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2019/5/29 11:27:00 [只看该作者]


[{"BED_NO":"04941","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"I","BED_STATE":"O","WARD_NO":"1","SORT_ID":1,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:51:39\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"04942","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"I","BED_STATE":"O","WARD_NO":"1","SORT_ID":2,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:51:39\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"04943","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"I","BED_STATE":"O","WARD_NO":"1","SORT_ID":3,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:51:39\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"04944","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"I","BED_STATE":"O","WARD_NO":"1","SORT_ID":4,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:51:39\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"04945","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"I","BED_STATE":"O","WARD_NO":"1","SORT_ID":5,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:51:39\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"04946","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"I","BED_STATE":"O","WARD_NO":"1","SORT_ID":6,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:51:39\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"04947","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"I","BED_STATE":"O","WARD_NO":"1","SORT_ID":7,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:51:39\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"04948","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"I","BED_STATE":"O","WARD_NO":"1","SORT_ID":8,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:51:39\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"04949","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"I","BED_STATE":"O","WARD_NO":"1","SORT_ID":9,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:51:39\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"049410","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"I","BED_STATE":"O","WARD_NO":"1","SORT_ID":10,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:51:39\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"049411","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"I","BED_STATE":"O","WARD_NO":"1","SORT_ID":11,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:51:39\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"049412","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"I","BED_STATE":"O","WARD_NO":"1","SORT_ID":12,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:51:39\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"049413","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"I","BED_STATE":"O","WARD_NO":"1","SORT_ID":13,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:51:39\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"049414","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"I","BED_STATE":"O","WARD_NO":"1","SORT_ID":14,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:51:39\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"049415","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"I","BED_STATE":"O","WARD_NO":"1","SORT_ID":15,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:51:40\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"049416","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"O","BED_STATE":"O","WARD_NO":"1","SORT_ID":16,"OPER_CODE":"admin","OPER_DATE":"\"2015/10/31 23:39:00\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"049417","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"O","BED_STATE":"O","WARD_NO":"1","SORT_ID":17,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:52:25\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"049418","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"O","BED_STATE":"O","WARD_NO":"1","SORT_ID":18,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:52:25\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"049419","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"O","BED_STATE":"O","WARD_NO":"1","SORT_ID":19,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:52:25\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"049420","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"O","BED_STATE":"O","WARD_NO":"1","SORT_ID":20,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:52:25\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"049421","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"O","BED_STATE":"O","WARD_NO":"1","SORT_ID":21,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:52:25\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"049422","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"O","BED_STATE":"O","WARD_NO":"1","SORT_ID":22,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:52:25\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"049423","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"O","BED_STATE":"O","WARD_NO":"1","SORT_ID":23,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:52:25\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"049424","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"O","BED_STATE":"O","WARD_NO":"1","SORT_ID":24,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:52:25\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"049425","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"O","BED_STATE":"O","WARD_NO":"1","SORT_ID":25,"OPER_CODE":"admin","OPER_DATE":"\"2015/9/29 16:52:25\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"049426","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"I","BED_STATE":"O","WARD_NO":"1","SORT_ID":26,"OPER_CODE":"admin","OPER_DATE":"\"2018/8/9 9:18:06\"","GRADENAME":"无床位费","SUMFEE":null},{"BED_NO":"049427","NURSE_CELL_CODE":"0494","FEE_GRADE_CODE":"41","BED_WEAVE":"I","BED_STATE":"O","WARD_NO":"1","SORT_ID":27,"OPER_CODE":"admin","OPER_DATE":"\"2018/8/10 14:34:45\"","GRADENAME":"无床位费","SUMFEE":null}],[{"RETURN_CODE":"0","ERROR_MSG":""}]
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1219 积分：8467 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2019/5/29 11:38:00 [只看该作者]

[{"RETURN_CODE":"0","ERROR_MSG":""}]
把最后的这段去掉就OK了，

再问
Dim json As String = "[{'name':'李云龙','age':'36'},{'name':'黄晓明','age':'28'}]"

能否把字段的名称提出来？即：name  age 
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/29 11:41:00 [只看该作者]

参考代码

 

Dim json As String = ClipBoard.GetText
json = json.split("]")(0) & "]"
msgbox(json)
Dim ja = jarray.Parse(json)
msgbox(ja(0)("BED_NO"))
msgbox(ja(1)("BED_NO"))
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1219 积分：8467 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2019/5/29 12:02:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看


能否把临时表的多层表头  关闭？  只关这个表的，不能都关
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/29 13:19:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1219 积分：8467 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2019/5/29 15:37:00 [只看该作者]

DataTables("产品").MultiRowHeader = False
DataTables("产品").BuildHeader()

这代码是只关闭 “产品” 这个表的，还是关闭了所有表的？  顺便问下这代码放哪里？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/29 16:07:00 [只看该作者]

以下是引用ycwk在2019/5/29 15:37:00的发言：
DataTables("产品").MultiRowHeader = False
DataTables("产品").BuildHeader()

这代码是只关闭 “产品” 这个表的，还是关闭了所有表的？  顺便问下这代码放哪里？

 

关闭【产品表】的，对应的副本表，也会关闭。

 

代码写到你需要关闭的事件去。
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1219 积分：8467 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2019/5/31 10:57:00 [只看该作者]

临时表不能像普通表一样，检测 新增行吗？  

If CurrentTable.Name="Result_床位" Then 
     Dim dt As DataTable = DataTables("Result_床位")
     For Each dr As DataRow In dt.DataRows
          If dr.RowState = DataRowState.Added Then
           
              msgbox("hello")

          End If
     Next
End If


再问，临时表，

Dim dr1 As DataRow = DataTables("Result_床位").AddNew()   后，不能立即在表中显示出新增的这行吗？
 回到顶部
总数 25 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询