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


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

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


加好友 发短信
等级：三尾狐 帖子：640 积分：5407 威望：0 精华：0 注册：2014/8/27 11:12:00 		关于生成json  发帖心情 Post By：2019/7/11 17:27:00 [只看该作者]

用户已经被屏蔽
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/11 17:40:00 [只看该作者]

For Each bm As String In bms
    jo("depart") = bm
    jo("count") = cint(dt.Compute("Count(uid)","department = '" & bm & "'"))
    jo("mans") = ja
    Dim i As Integer = 0
    For Each dr As DataRow In dt.Select("department = '" & bm & "'")
        ja.Add(New JObject)
        ja(i)("uid") = cstr(dr("uid"))
        ja(i)("username") = cstr(dr("username"))
        i = i + 1
    Next
Next
 回到顶部
帅哥哟，离线，有人找我吗？
xuanxiao
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：640 积分：5407 威望：0 精华：0 注册：2014/8/27 11:12:00 		  发帖心情 Post By：2019/7/11 18:25:00 [只看该作者]

用户已经被屏蔽
 回到顶部
帅哥哟，离线，有人找我吗？
xuanxiao
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：640 积分：5407 威望：0 精华：0 注册：2014/8/27 11:12:00 		  发帖心情 Post By：2019/7/11 18:26:00 [只看该作者]

用户已经被屏蔽
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/11 20:11:00 [只看该作者]


[此贴子已经被作者于2019/7/11 20:12:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/11 20:22:00 [只看该作者]

Dim jo As New JObject
Dim ja As new JArray
Dim jb As JArray

Dim bms As String() = dt.GetComboListString("department").Split("|")

Dim i As Integer = 0
For Each bm As String In bms
    Dim o As new JObject
    
    o("depart") = cstr(bm)
    o("count") = cint(dt.Compute("Count(uid)","department = '" & bm & "'"))
    jb = new JArray

    For Each dr As DataRow In dt.Select("department = '" & bm & "'")
        Dim o2 As new JObject
        o2("uid") = cstr(dr("uid"))
        o2("username") = cstr(dr("username"))
        jb.Add(o2)
    Next
    o("mans") = jb
    ja.Add(o)
Next
jo("depart") = ja
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08203 秒, 4 次数据查询