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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]快递鸟的查询方法

共有4842人关注过本帖树形打印复制链接主题：[原创]快递鸟的查询方法

有点蓝

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

加好友

发短信

等级：超级版主帖子：110647 积分：563143 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/8/9 20:04:00 [显示全部帖子]

参考：http://www.foxtable.com/mobilehelp/topics/0252.htm

dim json as string = getOrderTracesByJson()

Dim jo As JObject = Jobject.Parse(json )
Output.Show(jo("Traces")(0)("AcceptStation").ToString)

有点蓝

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

加好友

发短信

等级：超级版主帖子：110647 积分：563143 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/8/9 22:04:00 [显示全部帖子]

全局代码

Public Function getOrderTracesByJson(requestData As String) As String

Dim param As New System.Collections.Generic.Dictionary(Of String, String)()

……其它代码

命令窗口

Dim requestData As String = "{'OrderCode':'','ShipperCode':'YTO','LogisticCode':'806954566449701663'}"

dim json as string = getOrderTracesByJson(requestData )

Dim jo As JObject = Jobject.Parse(json )
Output.Show(jo("Traces")(0)("AcceptStation").ToString)

有点蓝

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

加好友

发短信

等级：超级版主帖子：110647 积分：563143 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/8/10 10:32:00 [显示全部帖子]

getOrderTracesByJson 的定义放到全局代码啊，全局代码怎么写的？

有点蓝

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

加好友

发短信

等级：超级版主帖子：110647 积分：563143 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/8/10 11:17:00 [显示全部帖子]

Dim requestData As String = "{'OrderCode':'','ShipperCode':'YTO','LogisticCode':'806954566449701663'}"

Dim obj As new KdApiSearchDemo

e.Form.Controls("TextBox1").Text = obj.getOrderTracesByJson(requestData )

Dim jo As JObject = Jobject.Parse(e.Form.Controls("TextBox1").Text)

MessageBox.Show(jo("Traces")(0)("AcceptStation").ToString)

有点蓝

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

加好友

发短信

等级：超级版主帖子：110647 积分：563143 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/8/10 16:58:00 [显示全部帖子]

这个去看快递鸟官方开发文档，人家怎么要求的就怎么做

下一主题 >> << 上一主题

主题：[原创]快递鸟的查询方法