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
加好友 
发短信
Post By：2020/11/14 9:07:00 [显示全部帖子]
