Foxtable(狐表) → 用户栏目 → 专家坐堂 → 快递鸟怎么目前的代码只能单个查询，请问怎么改成批量查询


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

主题：快递鸟怎么目前的代码只能单个查询，请问怎么改成批量查询
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/6 14:48:00 [显示全部帖子]

 批量查询的话，你写成循环，不就好了？

 

 循环所有的快递单号，一个一个的查。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/6 15:52:00 [显示全部帖子]

全局代码修改

 

Public Function getOrderTracesByJson() As String
Dim ddbkd As Row = Tables(Vars("DD")).current
Dim danhao As String =ddbkd("快递单号")
Dim daima As String =ddbkd("快递")
 
改成
 
Public Function getOrderTracesByJson(danhao As String, daima As String) As String
 
 
然后，调用代码也要修改
 
Dim Asv As new KdApiSearchDemo
For Each r As Row In Tables("自动查询_Table1").Rows
    Dim danhao As String = r("快递单号")
    Dim daima As String = r("快递")
    Dim jtb As String = Asv.getOrderTracesByJson(danhao, daima)
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/8 14:25:00 [显示全部帖子]

404错误，是你合成的访问的路径有问题。找不到对应的地址。

 

你看看你 Vars("dsURL") 的值是否正确
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/8 15:12:00 [显示全部帖子]

 快递鸟本身的问题吧？过快访问的时候，限制了你的访问。

 

 你判断一下返回的结果，如果没有正确返回值，就尝试再执行一次、或者是提示错误、或者是不处理继续下一条。

 

Dim jtb As String = Asv.getOrderTracesByJson(danhao, daima)

If jtb = Nothing Then

 

End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/11 16:05:00 [显示全部帖子]

以下是引用zoudezhao在2017/9/11 16:03:00的发言：
甜老师访问过快，访问速度让快递鸟给限制了，有没有什么方法能让查一个快递的时间拖长到5秒一查

 

参考

 

Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(10)
    Application.DoEvents
End While

msgbox("10秒后执行")
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 5 次数据查询