- 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=157728)
-- 发布时间：2020/10/27 9:33:00
-- 如何从自动表中的列取值附在链接后面
大佬求教下如何从自动表中的列取值附在链接后面
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编辑过]
-- 发布时间：2020/10/27 9:41:00
--
Dim hc As New HttpClient("http://ali-deliver.showapi.com/showapi_expInfo?com=auto&nu=" & e.row("xx列"))
-- 发布时间：2020/10/27 10:19:00
--
老大，提示还是没有取到这个值
此主题相关图片如下：123.jpg
-- 发布时间：2020/10/27 10:23:00
--
错误提示和这个取值没有什么关系，是返回值解析出错
dim res as string = hc.GetData
msgbox(res )看看返回内容
Dim jo As JObject = Jobject.Parse(res )