jo("request")("payload")("param")("data_request")("datainfo")("data")("row")("detail")= New JObject
jo("request")("payload")("param")("data_request")("datainfo")("data")("row")("detail")("@name")="PURCHASE_ARRIVAL_D"
jo("request")("payload")("param")("data_request")("datainfo")("data")("row")("detail")("row")= ja2
For Each dr1 As Row In Tables(e.Form.name & "_Table1").GetCheckedRows
Dim so2 As New JObject
so2("@seq")= Cstr(dr1("SequenceNumber")) '供应商的送货单行号
so2("fieldz") = ja3
ja2.add(so2)
For i3 As Integer = 1 To 1 ’这里有故意取一个字段来看还是报错,不明白为什么!
Dim so3 As New JObject
Select Case i3
Case 1
so3("@name")="SequenceNumber" '供应商的送货单行号
so3("@type")="numeric"
so3("#text")= dr1("SequenceNumber")
Case 2