快递鸟物流追踪 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 快递鸟物流追踪

共有2320人关注过本帖树形打印复制链接主题：快递鸟物流追踪

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/27 15:52:00 [显示全部帖子]

参考

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/28 18:05:00 [显示全部帖子]

参考

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/30 17:31:00 [显示全部帖子]

1、获取的信息正确了吗？msgbox弹出什么？

msgbox("物流状态:" & kdzt & " | 快递类型: " & kdlx & " | 运单号: " & ydh & " | 查询是否成功: " & sfcg & " | 失败原因: " & sbyy)

2、这样写

e.Form.Controls("Textbox1").text = vbcrlf & "物流状态:" & kdzt & " | 快递类型: " & kdlx & " | 运单号: " & ydh & " | 查询是否成功: " & sfcg & " | 失败原因: " & sbyy

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/30 17:44:00 [显示全部帖子]

For Each jt As JToken In jo("Traces")

e.Form.Controls("Textbox1").text = vbcrlf & jt("AcceptTime").ToString & " | " & jt("AcceptStation").ToString
Next

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/31 8:49:00 [显示全部帖子]

For Each jt As JToken In jo("Traces")

e.Form.Controls("Textbox1").text &= vbcrlf & jt("AcceptTime").ToString & " | " & jt("AcceptStation").ToString
Next

主题：快递鸟物流追踪