- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于用json 生成表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131532)
-- 发布时间：2019/2/28 16:41:00
-- 关于用json 生成表
我做了一个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
-- 发布时间：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
-- 发布时间：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.
-- 发布时间：2019/2/28 17:28:00
--
代码没问题，我测试没问题，请上传对应的json文件测试。
-- 发布时间：2019/2/28 17:30:00
--
你试下:
-- 发布时间：2019/2/28 17:49:00
--
帮忙看看
-- 发布时间：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
-- 发布时间：2019/2/28 17:59:00
--
哦 我看看