Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于用json 生成表


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

主题：关于用json 生成表
帅哥哟，离线，有人找我吗？
blackzhu
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		关于用json 生成表  发帖心情 Post By：2019/2/28 16:41:00 [只看该作者]

我做了一个xxx.json的文件,里面放了这个数据:

[
{
"_Identify": 1,
"医院名称": "上海长宁美奥",
"分院名称": "上海长宁美奥",
"所属区域": "长宁区",
"医院编码": "01",
"链接": "Provider=SQLOLEDB.1;Password=Passw0rD9191;Persist Security Info=True;User ID=sa;Initial Catalog=HIS_SHANGHAI;Data Source=47.96.248.28,6699",
"显示": "1",
"远程链接": "上海长宁美奥远程",
"拼音": "shanghai"
}]

按照论坛的做法是直接读文本框的数据生成表.


我现在这样写不对.应该如何修改?


Dim myjson As String = JArray.Parse(FileSys.ReadAllText(ProjectPath & "dll\donName.json", Encoding.Default))
            Dim dt As System.Data.DataTable = Newtonsoft.Json.JsonConvert.DeserializeObject(Of System.Data.DataTable)(myjson)
            Dim tb As Table = e.Form.Controls("Table1").Table
            tb.DataSource = dt
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

改成

 

Dim myjson As String = FileSys.ReadAllText(ProjectPath & "dll\donName.json", Encoding.Default)
            Dim dt As System.Data.DataTable = Newtonsoft.Json.JsonConvert.DeserializeObject(Of System.Data.DataTable)(myjson)
            Dim tb As Table = e.Form.Controls("Table1").Table
            tb.DataSource = dt
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2019/2/28 17:03:00 [只看该作者]

你这个我试过的,就是报错


.NET Framework 版本：2.0.50727.8937
Foxtable 版本：2018.10.9.1
错误所在事件：机构,AfterLoad
详细错误信息：
调用的目标发生了异常。
Invalid character after parsing property name. Expected ':' but got: 闀. Path '[0].鍒嗛櫌鍚嶇О', line 6, position 13.
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 

代码没问题，我测试没问题，请上传对应的json文件测试。

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


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2019/2/28 17:30:00 [只看该作者]

你试下:

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:donname.zip
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2019/2/28 17:49:00 [只看该作者]

帮忙看看

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


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

你文件的编码是utf-8

 

Dim myjson As String = FileSys.ReadAllText("C:\Users\dv rrxaI600 007\Downloads\donname\donName.json", Encoding.utf8 )
Dim dt As System.Data.DataTable = Newtonsoft.Json.JsonConvert.DeserializeObject(Of System.Data.DataTable)(myjson)
Dim tb As Table = e.Form.Controls("Table1").Table
tb.DataSource = dt
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2019/2/28 17:59:00 [只看该作者]

哦 我看看

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 5 次数据查询