导入券号一次 只能到100个，我索性就一次一行（也就是一个券号）导入，
然后库存 +1
但是感觉这样效率很低，每一行都要去调用微信的接口，而不是100行100行地调用
但是这个一次100行的遍历的低级问题却不知道怎么写。。。
以下是我之前的代码
For Each r As Row In Tables("导入券").Rows
Dim qh As String = r("券号")
Dim url As String = "https://api.weixin.qq.com/card/code/deposit?access_token={0}"
Dim hc As New HttpClient(CExp(url,Functions.Execute("GetAccessToken")))
Dim jo As New JObject
jo("card_id") = kaid
jo("code") = qh
hc.Content = jo.ToString()
jo = JObject.Parse(hc.GetData)
r("是否已导入") = "1"
'以上是导入券的代码
'以下是让券的库存+1的代码
Dim url1 As String = "https://api.weixin.qq.com/card/modifystock?access_token={0}"
Dim hc1 As New HttpClient(CExp(url1,Functions.Execute("GetAccessToken")))
Dim jo1 As New JObject
jo1("card_id") = kaid
jo1("increase_stock_value") = 1
hc1.Content = jo1.ToString()
jo1 = JObject.Parse(hc1.GetData)
Next
[此贴子已经被作者于2017/10/19 23:51:53编辑过]
加好友 
发短信
Post By：2017/10/19 23:52:00 [只看该作者]
