- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158280)
-- 发布时间：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"))