- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- click物流信息在信息框中显示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157704)
-- 发布时间：2020/10/26 14:10:00
-- click物流信息在信息框中显示
大佬，编辑表click，如何将物流信息在信息框中显示啊，求教
[此贴子已经被作者于2020/10/27 11:18:54编辑过]
-- 发布时间：2020/10/26 14:11:00
--
Dim hc As New HttpClient("http://ali-deliver.showapi.com/showapi_expInfo?com=auto&nu=SF1042535821840")
hc.Headers.Add("Authorization","APPCODE " & "ff56ccadbdc606bf2f")
Dim jo As JObject = Jobject.Parse(hc.GetData)
If jo("showapi_res_body")("data") IsNot Nothing Then
For Each jt As JToken In jo("showapi_res_body")("data")
Output.Show(jt("time").ToString & " | " & jt("context").ToString)
Next
End If
If e.Col.name = "dhqrd" Then
FoxUI.Msgbox("Output.Show","快递信息标题", FoxUI.MessageType.Main)
End If
[此贴子已经被作者于2020/10/27 11:19:07编辑过]
-- 发布时间：2020/10/26 14:16:00
--
比如，
Forms("窗口2").Controls("TextBox1").text = jt("time").ToString
-- 发布时间：2020/10/26 14:19:00
--
大佬能否给详细说下，没看懂
-- 发布时间：2020/10/26 14:29:00
--
您到底要做什么？我也没看明白。请截图说明一下
-- 发布时间：2020/10/26 15:53:00
--
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 " & "ff56cca9dc606bf2f")
Dim jo As JObject = Jobject.Parse(hc.GetData)
If jo("showapi_res_body")("data") IsNot Nothing Then
For Each jt As JToken In jo("showapi_res_body")("data")
MessageBox.Show (jt("time").ToString & " | " & jt("context").ToString)
Next
End If
End If
生成的快递信息会逐条出现消息框提示一段段的快递信息，不能在出现的消息框钟输出这个单号的所有快递信息
[此贴子已经被作者于2020/10/27 11:19:24编辑过]
-- 发布时间：2020/10/26 15:54:00
--
此主题相关图片如下：12.jpg
此主题相关图片如下：1.jpg
-- 发布时间：2020/10/26 16:01:00
--
合并到一个字符变量里：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