Dim dr As DataRow = e.DataRow Select Case e.DataCol.Name Case "快递详单" dr("快递详情") = "" Dim jo As JObject = Jobject.Parse(dr("快递详单")) Dim ja As JArray = Jarray.Parse(("traces")) If ja.count > 0 Then For Each jt As JToken In jo("traces") dr("快递详情") = dr("快递详情") & (jt("acceptTime").ToString & " | " & jt("acceptAddress").ToString & " | " & jt("remark").ToString) & vbcrlf Next Else dr("快递详情") = "过期或无此订单" End If End Select
|