主题：Foxtable无法获取淘宝Orders

检查一下：

 

Messagebox.Show(Td.Orders.Count)

这个直接询问淘宝比较合适。

.net能用,foxtable肯定就能用。

你贴出.net的代码给我看看，是能运行。

还有库文件也传一个。

我在foxtable的命令窗口，测试下面的代码，得到的结果是79:

 

Dim client2 As Top.Api.ITopClient
client2= New Top.Api.DefaultTopClient("http://gw.api.taobao.com/router/rest", "12331621", "176b9b899ddd386d825897408268be04")
Dim request As Top.Api.Request.TradesSoldGetRequest = New Top.Api.Request.TradesSoldGetRequest
request.Fields= "seller_nick, buyer_nick, title, type, created, tid, seller_rate, buyer_rate, status, payment, discount_fee, adjust_fee, post_fee, total_fee, pay_time, end_time, modified, consign_time, buyer_obtain_point_fee, point_fee, real_point_fee, received_payment, commission_fee, pic_path, num_iid, num, price, cod_fee, cod_status, shipping_type, receiver_name, receiver_state, receiver_city, receiver_district, receiver_address, receiver_zip, receiver_mobile, receiver_phone"
request.StartCreated = DateTime.Parse("2011-08-29 00:00:00")
request.EndCreated = DateTime.Parse("2011-08-30 00:00:00")
request.Status="TRADE_FINISHED"
request.PageSize=100
request.PageNo=1
Dim response As  Top.Api.Response.TradesSoldGetResponse= client2.Execute(request)
Dim trades As List(Of Top.Api.Domain.Trade) = response.Trades
messagebox.show(trades.count)

  

此主题相关图片如下：tbao.gif

我在vs.net 和foxtable分别测试下面的代码：

 

Dim s As String
Dim client2 As Top.Api.ITopClient
client2 = New Top.Api.DefaultTopClient("http://gw.api.taobao.com/router/rest", "12331621", "176b9b899ddd386d825897408268be04")
Dim request As Top.Api.Request.TradesSoldGetRequest = New Top.Api.Request.TradesSoldGetRequest
request.Fields = "seller_nick, buyer_nick, title, type, created, tid, seller_rate, buyer_rate, status, payment, discount_fee, adjust_fee, post_fee, total_fee, pay_time, end_time, modified, consign_time, buyer_obtain_point_fee, point_fee, real_point_fee, received_payment, commission_fee, pic_path, num_iid, num, price, cod_fee, cod_status, shipping_type, receiver_name, receiver_state, receiver_city, receiver_district, receiver_address, receiver_zip, receiver_mobile, receiver_phone"
request.StartCreated = DateTime.Parse("2011-08-29 00:00:00")
request.EndCreated = DateTime.Parse("2011-08-30 00:00:00")
request.Status = "TRADE_FINISHED"
request.PageSize = 100
request.PageNo = 1
Dim response As Top.Api.Response.TradesSoldGetResponse = client2.Execute(request)
Dim trades As List(Of Top.Api.Domain.Trade) = response.Trades
For Each Td As Top.Api.Domain.Trade In trades
    Dim Ods As List(Of Top.Api.Domain.Order) = Td.Orders
    s = s & ControlChars.NewLine & (Ods.Count)
Next
MessageBox.Show(s)

 

得到的结果都是一连串的0,显然并非在.net行，在foxtable不行，而是本来就不行，直接向淘宝询问吧

我就是在.net里头测试的，不信的话，你可以直接在vb.net 测试20楼的代码，进行验证。

也许你定义的日期范围，根本就没有订单。

别管.net的结果，我在你给出的代码中，从中提取出关键部分，分别明明在.net和foxtbale测试，结果都显示订单数是0，你如何解释？

foxtable就是.net，不可能一样的代码有两样的结果。

也许你指定的日期范围内，根本就没有订单。

 

 

你在vb.net测试下面的代码看看，明明所有的订单数，都是0的。

 

 

Dim s As String
Dim client2 As Top.Api.ITopClient
client2 = New Top.Api.DefaultTopClient("http://gw.api.taobao.com/router/rest", "12331621", "176b9b899ddd386d825897408268be04")
Dim request As Top.Api.Request.TradesSoldGetRequest = New Top.Api.Request.TradesSoldGetRequest
request.Fields = "seller_nick, buyer_nick, title, type, created, tid, seller_rate, buyer_rate, status, payment, discount_fee, adjust_fee, post_fee, total_fee, pay_time, end_time, modified, consign_time, buyer_obtain_point_fee, point_fee, real_point_fee, received_payment, commission_fee, pic_path, num_iid, num, price, cod_fee, cod_status, shipping_type, receiver_name, receiver_state, receiver_city, receiver_district, receiver_address, receiver_zip, receiver_mobile, receiver_phone"
request.StartCreated = DateTime.Parse("2011-08-29 00:00:00")
request.EndCreated = DateTime.Parse("2011-08-30 00:00:00")
request.Status = "TRADE_FINISHED"
request.PageSize = 100
request.PageNo = 1
Dim response As Top.Api.Response.TradesSoldGetResponse = client2.Execute(request)
Dim trades As List(Of Top.Api.Domain.Trade) = response.Trades
For Each Td As Top.Api.Domain.Trade In trades
     Dim Ods As List(Of Top.Api.Domain.Order) = Td.Orders
     s = s & ControlChars.NewLine & (Ods.Count)
Next
MessageBox.Show(s)

c#能做的，foxtable也能做，效果一样：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目61.rar