主题：[求助]

 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)

dim jo = JObject.Parse("申请人userid 列的值")