Case "fhdh.htm"
If e.getValues.Count > 0 Then
Dim Multi As String = e.getValues("fhdh")
Dim jo As New JObject
Dim ja As New JArray
jo(Multi) = ja
Dim drs As List(of DataRow) = DataTables("库存明细表").SQLSelect("U8发货单号 = '" & Multi & "'")
If drs.count > 0 Then
Dim Index As Integer = 0
For Each dr As DataRow In drs
ja.Add(New JObject)
ja(Index)("SN") = dr("SN").Tostring()
ja(Index)("MAC") = dr("MAC").Tostring()
ja(Index)("物料编码") = dr("物料编码").Tostring()
ja(Index)("订单号") = dr("订单号").Tostring()
ja(Index)("U8发货单号") = dr("U8发货单号").Tostring()
ja(Index)("U8出库单号") = dr("U8出库单号").Tostring()
ja(Index)("货运单号") = dr("货运单号").Tostring()
Index = Index + 1
Next
Else
ja(0)("SN") = ""
ja(0)("物料编码") = ""
ja(0)("订单号") = ""
ja(0)("U8发货单号") = ""
ja(0)("U8出库单号") = ""
ja(0)("货运单号") = ""
End If
e.WriteString(jo.ToString)
End If
错误所在事件：项目,HttpRequest
详细错误信息：
索引超出范围。必须为非负值并小于集合大小。
参数名: index
加好友 
发短信
Post By：2018/1/25 17:43:00 [只看该作者]
