VB.NET Jobject 解析 JSON

    ''' <summary>
    ''' 提交快递数据参数，返回 快递跟踪
    ''' </summary>
    ''' <param name="OrderCode">物流运单号</param>
    ''' <param name="LogisticCode">物流运单号</param>
    ''' <param name="ShipperCode">快递公司编码</param>
    ''' <returns>Traces:(快递跟踪) eg. 2016-12-07 16:01:23: 顺丰速运 已收取快件</returns>
    ''' <remarks></remarks>

    Public Function GetKDinfo(ByVal OrderCode As String, ByVal LogisticCode As String, ByVal ShipperCode As String) As String

        Dim st As String
        st = getOrderTracesByJson(OrderCode, ShipperCode, LogisticCode)

        Dim jo As JObject
        jo = JsonConvert.DeserializeObject(st)

        Dim KDinfo As String
        KDinfo = ""

        Dim ss As String
        ss = jo("Traces").ToString()
        Dim jff As JArray
        jff = JsonConvert.DeserializeObject(ss)

        For i = 0 To jff.Count - 1
            KDinfo = KDinfo + jff(i)("AcceptTime").ToString() + ": " + jff(i)("AcceptStation").ToString() + "
"
        Next
        Return KDinfo
    End Function

    ''' <summary>
    ''' 查询 快递状态
    ''' </summary>
    ''' <param name="OrderCode">订单号</param>
    ''' <param name="LogisticCode">物流运单号</param>
    ''' <param name="ShipperCode">快递公司编号</param>
    ''' <returns>返回快递状态状态 State:(物流状态) 0-无轨迹;1-已揽收;2-在途中;201-到达派件城市;3-签收;4-问题件 </returns>
    ''' <remarks>参数都是string类型的，饭后文本状态信息。</remarks>
    Public Function GetKDstate(ByVal OrderCode As String, ByVal LogisticCode As String, ByVal ShipperCode As String) As String

        Dim st As String
        Dim KDinfostr(2) As String
        st = getOrderTracesByJson("", ShipperCode, LogisticCode)

        Dim jo As JObject
        jo = JsonConvert.DeserializeObject(st)

        Dim endstr As String
        endstr = ""
        Dim stateInt As Int16

        'MsgBox(jo("State").Type)

        stateInt = CInt(IIf(IsDBNull(jo("State")), "0", jo("State")))

        Select Case stateInt
            Case 0
                endstr = "无轨迹"
            Case 1
                endstr = "已揽收"
            Case 2
                endstr = "在途中"
            Case 3
                endstr = "签收"
            Case 4
                endstr = "问题件"
        End Select
        Return endstr
    End Function