Foxtable(狐表)用户栏目专家坐堂 → [求助]datatable可否直接生成json


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

主题:[求助]datatable可否直接生成json

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/18 15:43:00 [显示全部帖子]

参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=76729&skin=0

 

或者循环每一行生成,如

 

Dim jo As New JObject
Dim ja As New JArray
Dim drs As List(of DataRow) = DataTables("表A").Select("")
jo("count") = drs.count
jo("data") = ja

Dim i As Integer = 0
For Each dr As DataRow In drs
    ja.Add( new jobject)
    ja(i)("第一列") = dr("第一列").tostring
    ja(i)("第二列") = dr("第二列").tostring
    i += 1
Next
output.show(jo.tostring)


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/19 9:07:00 [显示全部帖子]

以下是引用yjh2002在2018/1/19 8:58:00的发言:
谢谢您,那个例子我看过了,我做的系统不确定用户用什么操作系统,是否支持net3.5所以不能采用,只能自己做全套了。

 

任何操作系统(基于windows),都是可以安装 .net 3.5。

 

认真参考2楼代码。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/19 9:09:00 [显示全部帖子]

当然,你自己做一个类,也行。

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=89768&skin=0

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/19 9:17:00 [显示全部帖子]


 回到顶部