老师：
dim pageIndex as Integer = 0
Dim hc As New HttpClient("https://vpm:89/api/pos/post")
hc.Timeout = 5 '设置超时为5秒
hc.C '
hc.C"Action"":""SynkuData"",""BeginDate"":""" & BeginDate & """ ,""pageIndex"": " & pageIndex & " }' "
Dim ret As String = hc.GetData()
ret = ret.SubString(1,ret.lastIndexOf("""")-1)
ret = ret.Replace("\","")
Dim json As String = ret
Dim jo As JObject = JObject.Parse(json)
Dim ja As JArray = jo("msg")
For i As Integer = 0 To ja.Count - 1
cmd.CommandText = "Insert Into 条码货号 (ean, sku, id,BeginDate,pageIndex) Values(?,?,?,?,?)"
cmd.Parameters.Add("@ean",ja(i)("ean").ToString)
cmd.Parameters.Add("@sku",ja(i)("sku").ToString )
cmd.Parameters.Add("@id", ja(i)("id").ToString)
cmd.Parameters.Add("@BeginDate", BeginDate)
cmd.Parameters.Add("@pageIndex", pageIndex)
cmd.ExecuteNonQuery
cmd.Parameters.Clear()
Next
返回的 ja(i)("id") 取最大值作为 pageIndex 的值继续查询
要怎么写呢
[此贴子已经被作者于2019/9/17 22:53:51编辑过]
加好友 
发短信
Post By：2019/9/17 22:53:00 [只看该作者]
