大佬求教下如何从自动表中的列取值附在链接后面
If e.Col.name = "dhqrd" Then
Dim hc As New HttpClient("http://ali-deliver.showapi.com/showapi_expInfo?com=auto&nu=列取值")
hc.Headers.Add("Authorization","APPCODE " & "ff505dbdc606bf2f")
Dim jo As JObject = Jobject.Parse(hc.GetData)
If jo("showapi_res_body")("data") IsNot Nothing Then
Dim s As String
For Each jt As JToken In jo("showapi_res_body")("data")
s = s & (jt("time").ToString & " | " & jt("context").ToString) & Chr(10)
Next
MessageBox.Show(s ,"快递信息查询")
End If
End If
[此贴子已经被作者于2020/10/27 11:18:01编辑过]
加好友 
发短信
Post By：2020/10/27 9:33:00 [只看该作者]
