如何在VB中自定义格式http json post请求

Question

这是最终结果{" recordType"：" b"，" recordnumber"：1550316，" pickuplocation"：" de"}

Protected Sub GridView1_RowCommand(sender As Object, e As GridViewCommandEventArgs)
    'GridView1.EditIndex = e.NewEditIndex
    If e.CommandName = "Hold" Then
        'Determine the RowIndex of the Row whose Button was clicked.
        Dim rowIndex As Integer = Convert.ToInt32(e.CommandArgument)
        'Reference the GridView Row.
        Dim row As GridViewRow = GridView1.Rows(rowIndex)
        'Fetch values.
        Dim recordId As String = TryCast(row.FindControl("lblRecordId"), Label).Text
        Dim recordType As String = TryCast(row.FindControl("lblrecordType"), Label).Text
        Dim homeCode As String = TryCast(row.FindControl("lblHomeCode"), Label).Text
      Dim input As Object = New With {
           .recordType =  recordType ,
           .recordNumber = recordId,
           .pickupLocation =  homeCode 
    }

      Dim inputJson As String = JsonConvert.SerializeObject(input)
      Dim request3 As HttpWebRequest
      Dim response3 As HttpWebResponse = Nothing
      request3 = DirectCast(WebRequest.Create("SOMEURL"), HttpWebRequest)
            request3.Headers.Add("Authorization", "Bearer " + accessToken)
            request3.Accept = "application/json"
            request3.ContentType = "application/json"
            request3.Method = "POST"
      Dim bytes As Byte() = Encoding.UTF8.GetBytes(inputJson)

     Using stream As Stream = request3.GetRequestStream()
                stream.Write(bytes, 0, bytes.Length)
                stream.Flush()
                stream.Close()
          End Using
      Using httpResponse As HttpWebResponse = 
      DirectCast(request3.GetResponse(), HttpWebResponse)
                Using stream As Stream = httpResponse.GetResponseStream()
                    'lblOutput.Text = (New StreamReader(stream)).ReadToEnd()
                End Using
            End Using
         End If
      End Sub

inputjson =" {" recordType"：" b"，" recordnumber"：" 1550316"，" pickUplocation"："：" de"}

返回=" httpstatus"：400， "名称"："无效的JSON"， "描述"：" JSON对象缺少字段或字段具有无效数据"

我需要正确格式化我的帖子请求以使其看起来如下，请注意记录名称值没有引号。->

{"recordType": "b", "recordNumber": 1550316, "pickupLocation": "de"}

ty：(

Answer 1

我的猜测是recordID是字符串类型。

选项1：上一个具体类，远离匿名类型。

Public Class YourClass
    Public Property recordType As String
    Public Property recordNumber As Integer
    Public Property pickupLocation As String
End Class

选项2：如果您确定这是一个整数，则只需在初始化匿名类型时将其转换为此。

    Dim input As Object = New With {
                .recordType = "b",
                .recordNumber = System.Convert.ToInt32(recordId),
                .pickupLocation = "de"
    }