Foxtable(狐表)用户栏目专家坐堂 → click物流信息在信息框中显示


  共有2947人关注过本帖树形打印复制链接

主题:click物流信息在信息框中显示

帅哥哟,离线,有人找我吗?
yuntian
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:87 积分:960 威望:0 精华:0 注册:2018/8/8 18:43:00
click物流信息在信息框中显示  发帖心情 Post By:2020/10/26 14:10:00 [显示全部帖子]

大佬,编辑表click,如何将物流信息在信息框中显示啊,求教
[此贴子已经被作者于2020/10/27 11:18:54编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
yuntian
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:87 积分:960 威望:0 精华:0 注册:2018/8/8 18:43:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
yuntian
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:87 积分:960 威望:0 精华:0 注册:2018/8/8 18:43:00
  发帖心情 Post By:2020/10/26 14:19:00 [显示全部帖子]

大佬能否给详细说下,没看懂


 回到顶部
帅哥哟,离线,有人找我吗?
yuntian
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:87 积分:960 威望:0 精华:0 注册:2018/8/8 18:43:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
yuntian
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:87 积分:960 威望:0 精华:0 注册:2018/8/8 18:43:00
  发帖心情 Post By:2020/10/26 15:54:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:12.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

 回到顶部