合并到一个字符变量里：
http://www.foxtable.com/webhelp/topics/0221.htm
If e.Col.name = "dhqrd" Then
Dim hc As New HttpClient("http://ali-deliver.showapi.com/showapi_expInfo?com=auto&nu=SF1042535821840")
hc.Headers.Add("Authorization","APPCODE " & "ff56cca925fc4631b4c05dbdc606bf2f")
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
Next
msgbox(s)
End If
End If
加好友 
发短信
Post By：2020/10/26 14:16:00 [显示全部帖子]
