[分享] Json使用DataTable简例 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享] Json使用DataTable简例

共有21903人关注过本帖树形打印复制链接主题：[分享] Json使用DataTable简例

逛逛

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

加好友

发短信

等级：版主帖子：1693 积分：12135 威望：0 精华：7 注册：2013/7/11 10:52:00

[分享] Json使用DataTable简例 发帖心情

Post By：2015/11/4 10:10:00 [只看该作者]

JSON是一种轻量级的数据交换格式（自己可以百度一下）

比较适合在服务端和客户端之间传递数据

简例中引用 Json.net 的DLL

将一个DataTable 转换成Json数据

再将Json数据转换为DataTable,并绑定到表格

系统必须有.net3.5 的支持

都是网上抄的，不想回的可以自己百度一下，还是比较简单的

别忘了将DLL文件放入狐表文件夹或重新引用一次

下载信息 [文件大小：下载次数： ]
点击浏览该文件:json使用简例.zip

导出的代码

下载信息 [文件大小：下载次数： ]
点击浏览该文件:eventcode.zip

[此贴子已经被作者于2017/12/16 8:50:20编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/4 10:18:00 [只看该作者]

也可以用javescrip过度一下的，就是麻烦一些。

Dim text As String = "123一二三"
Dim ScriptControl As Object, data As Object, JscriptCode As String
JscriptCode = "function toUrl() {return encodeURI('" & text & "')}"
ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
    .Language = "Javascript"
    .Timeout = -1
    .AddCode(JscriptCode)
    text = .Run("toUrl")
End With

msgbox(text)