以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158280)

--  作者:wflqf
--  发布时间:2020/11/14 9:07:00
--  [求助]
 Dim jo As New JObject
jo("sp_no") ="202008120025"
hc.Content = jo.ToString()
Dim ret As String = hc.GetData()
\'msgbox(ret)
jo = JObject.Parse(ret)
If jo("errcode") = "0" Then
    Dim nms() As String = {"sp_no","sp_name","sp_status","template_id","apply_time","userid"}
    Dim jo1 As JObject = jo("info")
    Dim dr As DataRow = DataTables("费用报销").AddNew()
    For Each nm As String In nms
        dr(nm) = jo1(nm).tostring
    Next
    DataTables("费用报销").Save()
Else
    MessageBox.Show(jo.ToString)
End If


以上代码怎么修改能在申请人userid 列直接获取userid?


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20201114090511.png
图片点击可在新窗口打开查看




--  作者:有点蓝
--  发布时间:2020/11/14 10:05:00
--  
dim jo = JObject.Parse("申请人userid 列的值")
msgbox(jo("userid"))